gelöst:OnClick eines dynamischen Buttons

[Privateer3000]

Hallöchen,
ich versuche einem zur Laufzeit generierten Buttton ein Onclick zuzuweisen.

Code: Alles auswählen

tpa1.OnClick:=@buttonset(buttonquer,tpa1.Tag);

die procedure die aufgerufen werden soll:

Code: Alles auswählen

procedure THaupt.buttonset(bquer:TZQuery;bnum:Integer);
...

Nun meldet der Compiler:

Code: Alles auswählen

m_haupt.pas(138,17) Error: Incompatible types: got "<procedure variable type of procedure(TZQuery,LongInt) of object;Register>" expected "<procedure variable type of procedure(TObject) of object;Register>"

Warum funktioniert das nicht?
Im Delphi ging das ohne Probleme...(ohne @) natürlich

Grüße

Edit:
Ich bin blöd. Hat sich erledigt.
Natürlich kann das nicht direkt aufgerufen werden.

[Michl]

Für nachfolgende Leser: ein kleines Beispiel, wie man Buttons dynamisch erzeugt und den Eventhandler zuweist: http://wiki.freepascal.org/TButton/de#B ... h_erzeugen