Message Funktioniert nicht Klassenübergreifend

[mb.99]

Ich habe versucht dem KlickEvent des Spielbretts den Handler der Klasse Spielablauf zuzuweisen,
das scheitert aber daran das Lazarus den Parameter von DoOnKnotenPunktKlick verlangt...

Code:

 

   TKnotenClickEvent = procedure (Sender: TKnotenPunkt) of object;
   ...
   procedure DoOnKnotenpunktClick (Sender: TKnotenpunkt);
   ...
[B]   SpielBrett.FKnotenPunktKlick := DoOnKnotenpunktClick;[/B]  // hier wird der Sender verlangt

[DeddyH]

Funktioniert es so?

Delphi-Quellcode:

SpielBrett.FKnotenPunktKlick := @DoOnKnotenpunktClick;

Oder alternativ, indem Du den Modus von FPC auf Delphi änderst?

[Sir Rufo]

Oder noch eleganter, man schreibt sich einen Messenger.

Das funktioniert auf jeder Plattform und man kann sich das bauen, wie man möchte.