Button erstellen und Funktion zuweisen....

[CalganX]

Hi,
du erstellst einfach eine Prozedur vom Typ z.B. TNotifyEvent (siehe Hilfe) und weist die zu.
So zum Beispiel:

Delphi-Quellcode:

procedure TForm1.MeinEigenesOnClick(Sender: TObject);
begin
  ShowMessage('Dynamischer Button wurde geklickt');
end;

{...}
procedure TForm1.FormCreate(Sender: TObject);
var
  NewButton: TButton;
begin
  NewButton := TButton.Create(Form1);
  with NewButton do
  begin
    Parent := Form1;
    Caption := 'Neuer Button';
    Top := 10;
    Left := 10;
    Height := 30;
    Width := 100;
    OnClick := MeinEigenesOnClick;
  end;
end;
{...}

Chris