proceduren zuweisen in eigener klasse

[Chaosente]

Also ich hab zwei klassen.
Und im constructor meiner einen klasse will ich der procedure einer anderen klasse eine aus meiner klasse zuteilen.

Klasse1:

Delphi-Quellcode:

(...)
  procedure AIClick(x,y:integer);
  end;

procedure TKKSPielfeld.AIClick(x,y:integer);

Klasse2: (andere unit)

Delphi-Quellcode:

(..)  
  procedure Click(x,y:integer);
  end;


procedure TKKPLayer.Click(x,y:integer);
begin

end;
(...)

Und im Konstruktor von Klasse 1:

Delphi-Quellcode:

if (..)
  then FPLayer2.click:=AIClick;

Er gibt mir aber folgenden Fehler Code aus:
[Fehler] KKSpielfeld.pas(105): E2035 Nicht genügend wirkliche Parameter

[mkinzler]

Du kannst das nicht so machen. Du mußst Click als Methoden-Property deklarieren.

[Chaosente]

kapier ich nciht kannste das bitte genauer erklären?

[DeddyH]

Mal schnell dahergetippt:

Delphi-Quellcode:

type TMyClickEvent = procedure(Sender: TObject; X,Y: integer) of object;
TMyClass = class(TObject)
  ...
  FOnClick: TMyClickEvent;
  ...
  published
    property OnClick: TMyClickEvent read FOnClick write FOnClick;
  end;

Und im Konstruktor dann FOnClick auf nil setzen.

P.S.: Das ist nur ein Beispiel, Du kannst natürlich ganz andere Parameter haben.

[mkinzler]

Delphi-Quellcode:

...
private
  FonClick: TNotifyEvent;
  procedure AIClick(x,y:integer); 
...
property OnClick: TNotifyEvent read FonClick write FonClick;

[Apollonius]

Schlage einfach mal Funktionszeiger nach.