Дан массив объектов типа TShape. Как мне из массива отобразить объекты на форме? — 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;

Leave a Comment