Ereigniss einem dynamischen Objekt zuweisen

[gordon freeman]

Hi Leute,

ich erzeuge zur Laufzeit einen Button dessen Click-Ereigniss ich eine Procedure zuweisen möchte:

Delphi-Quellcode:

constructor TSpielBearbeitung.Create();
begin
{Erzeugen des Forms}
myBtn := TButton.create;
with myBtn do
  begin
   parent  := Form;
   caption := 'Ende';
   click   := Schliessen;  // <-- Hier kommt der Fehler!
  end;
end;


procedure TSpielBearbeitung.Schliessen;
begin
Form.close
end;

end.

SChliessen ist als Private Prozedur von TSpielBearbeitung deklariert. Nun kommt bei der Zuweisung des Button-Ereignisses die Fehlermeldung:

Zitat:

Zitat von Delphi schreibt

Der linken Seite kann nichts zugewiesen werden

Woran liegt das?

tia, gordon

[Ultimator]

Es muss myButton.OnClick heißen.
TButton.Click führt nur das aus, was im OnClick definiert wurde ;-)

[gordon freeman]

Jetzt funzt es :thumb:

thx, :dp: