Ereignisbehandlung einklinken

[lazarus_newbee]

Hallo zusammen!

Ich habe eine Klasse von TCustomControl abgeleitet.
Inzwischen klappt das meiste schon ganz ordentlich.

Jetzt wollte ich für OnEnter eine Ereignisbehandlungs-Routine zuordnen.

Code: Alles auswählen

type TSpielstein = class(TCustomControl)
...
  procedure DoEnter(Sender:TObject);
...
end;
...
implementation
...
procedure TSpielstein.DoEnter(Sender:TObject);
begin
...
end;
 
procedure TSpielstein.Create(...);
begin
...
  OnEnter:=DoEnter;
end;

Beim Compilieren kommt folgende Fehlermeldung:

Code: Alles auswählen

spielstein.pas(40,19) Error: Wrong number of parameters specified for call to "DoEnter"

[theo]

Verschiedenes:
Die eig. Antwort ist hier:
http://wiki.lazarus.freepascal.org/Code ... ranstellen" onclick="window.open(this.href);return false;

Aber: eigentlich macht man das in der Klasse nicht, dass man eigene On... verwendet.
Man überschreibt besser die entspr. Methode:

type TSpielstein = class(TCustomControl)
...
procedure DoEnter; override; //gibt's schon in den Vorfahren!
...

procedure TSpielstein.DoEnter;
begin
inherited DoEnter;
end;

[m.fuchs]

Code: Alles auswählen

OnEnter:=@DoEnter;

Du möchtest ja einen Zeiger auf deine Prozedur DoEnter der Eigenschaft OnEnter zuweisen. Deswegen der @-Operator.
Bei deinem Code würde deine Prozedur aufgerufen und ihr Rückgabewert an OnEnter zugewiesen werden (was ja nicht klappt weil es eine Prozedur ist). Und für diesen Aufruf fehlt der Parameter Sender wie der Compiler richtig bemängelt.

hth
Micha

[lazarus_newbee]

Also Eure Arbeitsgeschwindigkeit ist schon beeindruckend.
Ich hab das gleich umgesetzt.
Danke Euch

[lazarus_newbee]

... Hab ein neues Thema aufgemacht