Zeiger der Form über das Handle ermitteln

[barf00s]

GetProp / SetProp sind das nich RTTI helperfunctions?

[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;

[jfheins]

Zitat:

Zitat von SarDGer

eine komponente soll auf
das aktive Fenster zugreifen - es ist aber nicht klar welches
Fenster gerade aktiv ist.

Dann könntest du eine globale Variable ActiveForm: TForm; deklarieren,

und im OnActivate jeder Form ActiveForm := Self; und im OnDeactivate (TApplicationEvents) dann ActiveForm := nil;

So würd' ich's machen, trotz globaler Variable ... ;)

[Olli]

Zitat:

Zitat von barf00s

GetProp / SetProp sind das nich RTTI helperfunctions?

Deswegen sage ich ja auch explizit, daß ich die entsprechenden Win32-APIs meine ;)

[barf00s]

hab zu schnell gelesen/geantwortet und den löschen button nicht gefunden :)
sry olli=P

[SarDGer]

Hallo ihrs,

ersteinmal Danke für die vielen Antworten :-D .
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 !! :wall:

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 :party: