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;