Prozeduren mit Ereignissen per Code erzeugter Obj. verbinden

[400kmh]

Hallo,

wie schafft man es, Clicks auf durch Befehle im Code erzeugte Objekte Prozeduren zuzuweisen?

Wenn bei manuell erzeugten Objekten, lässt sich dies ja durch den Objektinspektor regeln. Durch Befehle im Code erzeugte Objekte finden sich jedoch nicht im Objektinspektor. Daher meine Frage: Wie funktioniert es stattdessen?

Wenn man durch den Code z. B. einen Button erstellt, wie schafft man es, dass durch einen Klick auf diesen Button, dann auch eine dafür vorgesehene Prozedur abläuft?

[theo]

Ich verstehe deine Frage zwar möglicherweise nicht ganz, aber wenn du meinst, wie man zur Laufzeit Ereignisse einhängen kann, dann geht das (minimalistisch) so:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
 MyButton:=TButton.Create(self);
 MyButton.Parent:=self;
 MyButton.OnClick:=@MyButtonClick;
end;
 
procedure TForm1.MyButtonClick(Sender: TObject);
begin
  ShowMessage('Ja');
end;

[felix96]

Was bewirkt die Eigenschaft Parent, Button1.parent

[theo]

Was bewirkt die Eigenschaft Parent, Button1.parent

Das setzt die Elternkomponente, d.h. dort wird das Control drauf platziert.
Wenn die Angabe fehlt, sieht man das Control nicht, weil sie kein Zuhause hat.

[400kmh]

Ich verstehe deine Frage zwar möglicherweise nicht ganz, aber wenn du meinst, wie man zur Laufzeit Ereignisse einhängen kann, dann geht das (minimalistisch) so:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
 MyButton:=TButton.Create(self);
 MyButton.Parent:=self;
 MyButton.OnClick:=@MyButtonClick;
end;
 
procedure TForm1.MyButtonClick(Sender: TObject);
begin
  ShowMessage('Ja');
end;

Danke.