Buttons dynamisch erstellen

[glkgereon]

nimm mal einen Button per Hand und nimm da das OnClick.

genauso muss es aussehen, nur halt per hand geschrieben

so:

Delphi-Quellcode:

TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure Click(Sender: TObject); 
  private
//...

implementation

procedure TForm1.Click(Sender: TObject);
begin
  //Mach mal irgendwas
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer; 
begin 
  for i:=0 to 20 do 
  begin 
    buttons[i]:=TButton.create(form1); 
    buttons[i].Left:=20; 
    buttons[i].top:=80; 
    buttons[i].height:=35; 
    buttons[i].width:=80; 
    buttons[i].Visible:=true; 
    forms[i]:=TForm.Create(form1); 
    buttons[i].Parent:=forms[i]; 
    forms[i].Visible:=true; 
    forms[i].left:=40*i; 
    forms[i].width:=38; 
    buttons[i].OnClick:=click; 
  end;
end;