Ist zwar nicht unbedingt der Beste weg, aber so könnte man es notfalls auch noch lösen
Delphi-Quellcode:
type TMyNotifyEvent = class
class procedure MyOnChange(Sender: TObject);
end;
class procedure TMyNotifyEvent.MyOnChange(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.OnChange := TMyNotifyEvent.MyOnChange;
end;
theoretisch sähe die reine Prozedurdefinition einer TNotifyEvent-Prozedur so aus:
procedure MyOnChange(Self, Sender: TObject);
Würde auch funktioonieren, aber dafür muß man die Typenprüfung von Delphi schon überlisten, da
Procedure <> Procedure of Object.
Man müßte also irgendwie den Typ von Pointer ( @MyOnChange ) nach TNotifyEvent umbiegen, da sich die Prozedur sonst nicht an .OnChange übergeben läßt.