Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
16. Nov 2008
hast du da vielleicht noch was vergessen?
procedure tbla.KeyboardHookPreExecute(Hook: THook; var Hookmsg: THookMsg);
procedure write(msg: string);
var pid: dword;
begin
if msg <> '' then
begin
........
PS: vergiß nicht, daß du bei der Variante über die Klasse auch noch die Klasseninstanz erstellen mußt!
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
16. Nov 2008
so, mußte jetzt erstmal suchen wie der Rest definiert ist, aber .OnPreExecute ist als THookNotify definiert und da schau dir mal das "of object" an.
THookNotify = procedure(Hook: THook; var Hookmsg: THookMsg) of object;
Also muß die Prozedur eigentlich in einer Klasse liegen. :zwinker:
tDeineKlassenVariable = Class
procedure KeyboardHookPreExecute(Hook: THook; var Hookmsg: THookMsg); ...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
16. Nov 2008
KeyboardHookPreExecute ist "nur" eine Prozedur, aber sie muß eine Prozedur in 'ner Klasse sein.
Wie und wo ist denn KeyboardHookPreExecute definiert?
:= DeineKlassenVariable.KeyboardHookPreExecute