Kann Event nicht zuweisen! Wieso?

[stho]

Hallo Leute

Ich hänge seit 1 Stunde an einem Problem das ich selbst mit Hilfe der SuFu nicht gelöst bekomme...
Ich erstelle zur Laufzeit ein Objekt. Das ist ja auch kein Problem.

Dann weise ich dem Objekt mit

Delphi-Quellcode:

OBJNAME.OnKeyDown := TestUnit.EventKeyDown(Sender: TObject; var Key: Word;
                                           Shift: TShiftState);

das Event zu.

Das event ist in der TestUnit so fediniert:

Delphi-Quellcode:

procedure EventKeyDown(Sender: TObject; var Key: Word;
                       Shift: TShiftState);

doch er sagt mir immer "Nicht genügend wirkliche Parameter"
Was mache ich hier falsch?!

[Alaitoc]

Die Parameter musst bzw. darfst du beim zuweisen nicht angeben.

OBJNAME.OnKeyDown := TestUnit.EventKeyDown; MfG Alaitoc

[stho]

Zitat von Alaitoc:

Die Parameter musst bzw. darfst du beim zuweisen nicht angeben.

OBJNAME.OnKeyDown := TestUnit.EventKeyDown; MfG Alaitoc

hab ich schon ausprobiert
dann kommt folgendes:

E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

ich bin noch immer ratlos... habe ja schon in früheren projekten events angehängt...
aber dieses mal klappts einfach nicht

[Luckie]

Deine Ereignisprozedur muss eine Methode einer Klasse sein.

[stho]

methode einer klasse....
okay, ich werde mal eine klasse draus basteln und schauen obs dann funktioniert.

im moment hab ich nur reine prozeduren in der testunit

[Sharky]

Zitat von stho:

methode einer klasse. ...

Nich einer Klasse sondern die Methode muss zu der Klasse gehören in der OBJNAME deklariert ist.

[himitsu]

Der Compiler sagt wirklich was von "ungenügend Parametern"
nichts von "Prozedur kann nicht auf Methodenzeiger zugewiesen werden"?

Wenn dem so ist, dann kannst du mal versuchen den bei Methoden "versteckten" Self-Parameter mit anzugeben.
procedure EventKeyDown(Self, Sender: TObject; var Key: Word; Shift: TShiftState);

Zitat von Sharky:

Nich einer Klasse sondern die Methode muss zu der Klasse gehören in der OBJNAME deklariert ist.

Nein, es kann eine Methode irgendeiner Klasse sein.
(darum wird bei Methoden ja auch die Instanz der zugehörigen Klasse mit gespeichert und als Self weitergegeben)

[franktron]

Da procedure EventKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
fehlte
of object;

also

Delphi-Quellcode:

procedure EventKeyDown(Sender: TObject; var Key: Word;
                       Shift: TShiftState) of object;

[himitsu]

Zitat von franktron:

Da ... fehlte of object;

Das geht nur bei Deklaration einer Variable.
Eine Prozedur kann man nicht so deklarieren.

[hoika]

Hallo,

of object kann bei Prozedurtypen verwendet.

Delphi-Quellcode:

type
  TMyProc = procedure(x: Integer) of object;

Das ist aber ein anderes Thema.


Heiko