Zeiger der Form über das Handle ermitteln

[sniper_w]

Hmmm die Voraussetzung dass dies funktioniert ist so eine Implementierung von OnCreate Event:

Delphi-Quellcode:

procedure TMyFormType.OnCreate(Sender:TObject);
begin
 SetWindowLong(Handle,GWL_USERDATA, Integer(Self) );
end;

Und so holt man sich den Pointer:

Delphi-Quellcode:

var MyForm : TMyFormType;
begin
 MyForm := TMyFormType( GetWindowLong( HWND , GWL_USERDATA));
end;