Neues On... Ereignis zuweisen

[igel457]

Ein kleiner Nachtrag um meine Theorie zu bestätigen:

Delphi-Quellcode:

uses
  SysUtils;

type
  TNotifyEvent = procedure(Sender: TObject) of object;

procedure test(Self: Pointer; Sender: TObject);
begin
  writeln(Integer(self));
  writeln(Integer(Pointer(Sender)));
end;

var
  m: TMethod;
  ne: TNotifyEvent;

begin
  m.Code := @test;
  m.Data := Pointer(100);
  TNotifyEvent(m)(Pointer(200));
  Readln;
end.

Ausgabe:

Code:

100
200

Eigentlich reicht es also, zu seiner Prozedur einen "self"-Parameter des Typs "Pointer" hinzuzufügen, und schon kann man diese auch als Ziel für Methodenzeiger verwenden. Allerdings ist das ziemlich "tricky" - um es mal so auszudrücken.