Hallo ich hab das Problem, dass ich einen Button zur Laufzeit erzeugt habe und ich wollte diesem Button nun eine Procedure beim Ereignis OnClick zuweisen.
Das Programm könnte wie folgt aussehen:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TButton.Create(Self).Name :='Button1';
with TButton(FindComponent('Button1')) do
begin
Left := 10;
Top := 20;
Parent := self;
//Anweisung um beim Ereignis OnClick die Procedure 'test' auszuführen
end;
end;
procedure test;
begin
//Anweisungen
end;
Die Procedure test wurde natürlich im Voraus deklariert.
Danke für eure Antworten