Memo OnChange Procedure zuweisen??

[himitsu]

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.