procedure TForm1.Button1Click(Sender: TObject); type Tmybutton=Tbutton; var i:integer; button:array[0..99] of Tmybutton; begin for i:=low(button) to high(button) do begin button[i]:= Tmybutton.Create(self); button[i].Parent:=self; button[i].Visible :=true; button[i].Top :=i*10; end; end;
type
Tmybutton=Tbutton;
var
i:integer;
button:array[0..99] of Tmybutton;
begin
for i:=low(button) to high(button) do begin
button[i]:= Tmybutton.Create(self);
button[i].Parent:=self;
button[i].Visible :=true;
button[i].Top :=i*10;
end;
end;
yourbutton.parent := self;
yourbutton.left = 10;
yourbutton.top = 10;