Button zur Laufzeit erzeugen

[raiguen]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var btnNeu: TButton;
begin
  btnNeu := TButton.Create(Self)
  with btnNeu do
  begin
    Name := 'Button1';
    Caption := 'Click  mich';
    Left := 10;
    Top :=  20;
    Parent := self;
    OnClick := tesstClick;
  end;
end;


procedure tesstClick;
begin
//Anweisungen
end;

So in etwa...
Gute Nacht

[edit=Luckie] Mfg, Luckie[/edit]