Message Funktioniert nicht Klassenübergreifend

[mb.99]

Die Dekelaration und Zuweisung habe ich soweit hinbekommen, nur weiß ich nicht wie ich jetzt die Funktion 'PruefeAktion' auslösen kann.

Code:

TSpielAblauf = class
public
  FOnAktion : TKnotenClickEvent;

  constructor create;
private
  SpielerS : TSpieler;
  SpielerW : TSpieler;
  SpielBrett : TSpielbrett;
  AblaufMerker : TAblaufMerker;
  property OnAktion : TKnotenClickEvent read FOnAktion write FOnAktion;

  procedure PruefeAktion; // ID des Spielsteins im Parameter mitgeben
  procedure Neustart;
end;

...

constructor TSpielAblauf.create;
begin
  Randomize;
  FOnAktion := SpielBrett.FKnotenPunktKlick;
end;

[DeddyH]

Die Property gibt es doch schon in TKnotenpunkt. Was Du brauchst, ist ein Eventhandler, den Du zuweisen kannst.

Delphi-Quellcode:

TSpielAblauf = class
private
  procedure DoOnKnotenpunktClick(Sender: TKnotenpunkt);
  ...
end;

procedure TSpielablauf.DoOnKnotenpunktClick(Sender: TKnotenpunkt);
begin
  //Irgendwas mit dem Knotenpunkt machen
end;

So, wenn Du nun einen neuen Knotenpunkt erzeugst, weist Du ihm einfach den Eventhandler zu.

Delphi-Quellcode:

NeuerKnoten := TKnotenpunkt.Create;
NeuerKnoten.OnClick := DoOnKnotenpunktClick;

[edit] Wobei ich gerade erst gelesen habe, dass die Knotenpunkte in TSpielbrett deklariert sind. Dann ist der Eventhandler wohl dort besser aufgehoben, ändert aber am Prinzip nichts. [/edit]

[mb.99]

Spricht etwas dagegen im standard Click event des Spielbrett einafach
(Parent as TSpielablauf).PruefeAktion aufzurufen?

Edit: Hab grad selbst gemerkt das meine Idee Unfug ist.

[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?
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.