Message Funktioniert nicht Klassenübergreifend

[mb.99]

Ich werde mich dann mal mit Events außeinandersetzen, vielen Dank soweit.

[mb.99]

Wahrscheinlich stell ich mich gerade blöd an aber mir leuchtet es gerade nicht so wirklich ein mit den Events
vielleicht könnt ihr mir da weiterhelfen.


KLasse Spielbrett beinhaltet ein Array of...TKnotenpunkt(TCustomControll)

Klasse Spielablauf beinhaltet ein Spielbrett und die Funktion 'Aktion'.
In der Funktion 'Aktion' wird geprüft wer am Zug ist, ob derjenige einen Stein verschieben darf...
'Aktion' soll durch den Klick auf einen Kbnotenpunkt ausgelöst werden.

[DeddyH]

Aus dem Hut ohne Netz und doppelten Boden:

Delphi-Quellcode:

type
  //Forward-Deklaration
  TKnotenPunkt = class;  

  //Event-Deklaration
  TKnotenPunktClickEvent = procedure(Sender: TKnotenpunkt) of object;

  TKnotenPunkt = class(TCustomControl)
  private
    //privates Feld vom Typ des Events
    FOnClick: TKnotenPunktClickEvent;
    ...
  protected
    procedure Click; override; 
    ...
  public
    //Event-Property, damit man auch etwas zuweisen kann
    property OnClick: TKnotenPunktClickEvent read FOnClick write FOnClick;
    ...
  end;

procedure TKnotenPunkt.Click;
begin
  inherited;
  //Eventhandler ausführen, sofern zugewiesen
  if Assigned(FOnClick) then
    FOnClick(self);
  Angeklickt := True;
end;

Nun kannst Du beim Erzeugen jedes Knotenpunkts diesem einen Eventhandler (zweckmäßigerweise immer denselben) zuweisen. Diesem wird im Sender-Parameter mitgegeben, welcher Knotenpunkt das Event ausgelöst hat.

[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