Дан массив объектов типа TShape. Как мне из массива отобразить объекты на форме?
Категория: Delphi/Pascal
2012-11-07 16:10:09
code: #delphi
Var Shp:array[1..3] of TShape; procedure TForm1.Button1Click(Sender: TObject); Var i:byte; begin For i:=1 to 3 do begin Shp[i]:=TShape.Create(self); With Shp[i] do begin parent:=Form1; name:='Shape'+intToStr(i); Left:=100+150*i; Top:=100; visible:=false; end; end; Shp[1].Visible:=true; Shp[3].Visible:=true; end; procedure TForm1.Button2Click(Sender: TObject); Var i:byte; begin For i:=1 to 3 do begin Shp[i].Parent := nil; Shp[i].Free; Shp[i] := nil; end; end;
автор: Vovan-VE