Hallo ihrs,
ersteinmal Danke für die vielen Antworten
.
Nachdem ich Gestern noch x Stunden rumgefummelt habe,
hatte ich dann eine Lösung, so über 17 Ecken sehr
unelegant...
Und dann lese ich heute die Antwort von sniper_w:
Zitat:
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;
So einfach kann es sein !!
Hab einfach ne globale Funktion geschrieben die alle
Formen beim Create durchlaufen müssen und in der das
SetWindowLong steht - das wars.
Funktioniert wie hulla - super! Nocheinmal Danke!
Sar
