Forum: Object-Pascal / Delphi-Language
by DeddyH,
5. Nov 2014
Funktioniert es so?
SpielBrett.FKnotenPunktKlick := @DoOnKnotenpunktClick;
Oder alternativ, indem Du den Modus von FPC auf Delphi änderst?
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Okt 2014
Die Property gibt es doch schon in TKnotenpunkt. Was Du brauchst, ist ein Eventhandler, den Du zuweisen kannst.
TSpielAblauf = class
private
procedure DoOnKnotenpunktClick(Sender: TKnotenpunkt);
...
end;
procedure TSpielablauf.DoOnKnotenpunktClick(Sender: TKnotenpunkt);
begin
//Irgendwas mit dem Knotenpunkt machen
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Okt 2014
Aus dem Hut ohne Netz und doppelten Boden:
type
//Forward-Deklaration
TKnotenPunkt = class;
//Event-Deklaration
TKnotenPunktClickEvent = procedure(Sender: TKnotenpunkt) of object;
TKnotenPunkt = class(TCustomControl)
private
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Okt 2014
Vielleicht kann man auch ganz auf die Messages verzichten und stattdessen Events verwenden. Aber da ich das Design noch nicht so richtig verstanden habe, kann ich auch keine verbindliche Aussage dazu treffen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Okt 2014
TKnotenpunkt schickt die Message an sich selbst, wieso sollte TSpielAblauf darauf reagieren, zumal letztere ja auch gar kein Fensterhandle hat, an das man die Message verschicken könnte?