Button dynamisch erstellen / On... Events WIE ?

[thomasschaf]

Hallo,

ich möchte einem Button, den ich dynamisch erstellt habe, ein On... (z.B. OnClick) - Ereignis zuweisen.

Ich beginne so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TButton;
begin
  a      := TButton.Create(self);
  a.Parent := Form1;
  a.Visible := True;
  a.Top  := 0;
  a.Left := 0;
  a.Width := 22;
  a.Height := 44;
  a.Caption := 'lala';

end;

Das klappt auch ganz toll!

Aber wie kann ich jetzt OnClick-zuweisen ?

Irgendwas mit "a.OnClick:=" aber ich habe keine Ahnung was ich da reinschreiben soll.
Der Typ ist TNOTIFYEVENT ?

Vielen Danke

[wicht]

TNotifyEvent = procedure(Sender: TObject) of object;
Das heißt, du machst dir im Form eine Prozedur wie zum Beispiel

Delphi-Quellcode:

type
  MeinForm = class(TForm)
  private
    procedure ButtonClick(Sender: TObject);

{...}

procedure MeinForm.ButtonClick(Sender: TObject);
begin
  // Es wurde geklickt!
end;

Die Zuweisung des OnClick zur Methode wäre dann

a.OnClick := ButtonClick;

HTH

[thomasschaf]

Mist, hatte das "@" vergessen!

grus

[thomasschaf]

Ah, danke!

Hatte es auch grad noch probiert und festgestellt, dass man ein @ braucht.

Danke, THomas!

[wicht]

Achja, FreePascal ist da etwas strikter.. Delphi hat mir den schluffigen Programmierstil beigebracht, ich gehöre (leider) zu der Fraktion, die das @ weglässt

Schön wenn jetzt alles funktioniert.

[DeddyH]

Das @ brauchst Du nur, wenn Du nicht auf den Delphi-Kompatibilitätsmodus umstellst. Wie das allerdings genau ging, weiß ich leider nicht aus dem Kopf, da wird IIRC eine Compiler-Direktrive gesetzt ({$MODE Delphi} oder so ähnlich).