Form nach SetParent wieder lösen

[padavan]

Guten Abend Delphianer,

ich habe ein Hauptformular auf welchem ich bei Bedarf ein weiteres Fenster öffnen kann.
Ich möchte ein Feature programmieren, dass dieses zweite Fenster in meinem Hauptformular gefangen ist, oder bei Bedarf auch gelöst werden kann.
Das Fangen habe ich so realisiert:

Delphi-Quellcode:

  windows.SetParent(findwindow(nil,PCHar('Form_Listview')),Form1.Handle);

Funktioniert auch wunderbar.
Hehe, jetzt weiß ich nur nicht, wie das Formular (welches übrigens zur Laufzeit erst generiert wird) wieder aus meinem Hauptformular lösen kann und es quasi wieder an den Desktop übergebe.

Hat jemand ne Idee?
:gruebel:

[Luckie]

Im PSDK steht auch nichts. Aber was passiert, wenn du 0 übergibst als Handle?

[SirThornberry]

schau doch einfach mal was der parent ist bevor du ihn neu setzt.
Desweiteren kannst du auch einfach machen

Delphi-Quellcode:

FormListView.Parent := Form1;

[padavan]

Leider hatte ich kein Glück mit

Delphi-Quellcode:

  windows.SetParent(findwindow(nil,PCHar('Form_Listview')),0);

Und wer das Handle vorher hatte, hab ich auch nicht rausbekommen, da mir der dafür passende Befehl noch nicht untergekommen ist..

Delphi-Quellcode:

  GetHandle(...

war so ein Ansatz bzw.

Delphi-Quellcode:

  GetParentHandle(...

Ein seltsamen Effekt hatte der Versuch mit 0 als Handle übergeben allerdings.
Nachdem ich das Versucht hatte und feststelle, dass es nicht funzt,
habe ich den urspünglichen Zustand wiederhergestellt.
Leider ohne Erfolg, jetzt ließ sich das 2te Formular gar nicht fangen. Eigenartig, oder?

Hab dann langsam an meinem Verstand gezweifelt und es mit einem anderen Formular versucht, welches ich Testweise erzeugt hab - damit ging´s.
Aber das, welchem ich 0 übergeben hab, dass will sich nicht mehr fangen lassen

:wall:

[marabu]

Hallo padavan,

wenn es nur um das Einfangen und Freigeben geht, dann würde ich das so machen:

Delphi-Quellcode:

procedure TMainForm.CaptureButtonClick(Sender: TObject);
begin
  with FloatingForm do
  if Assigned(Parent)
    then Parent := nil
    else Parent := self;
end;

Grüße vom marabu

[SirThornberry]

SetParent liefert dir doch das vorherige Handle zurück

[padavan]

aha,
gut, dann werde ich dass mal checken.


Vielen Dank für die schnellen Antworten
:hi:

[chaosben]

Alternative probiers mit

Delphi-Quellcode:

SetParent(DeinFensterHandle,GetDesktopWindow());

MfG
Ben

[SirThornberry]

desweiteren gibt es auch die Funktion GetParent

[padavan]

leider kein Glück bisher.

Als erstem mal weiß ich jetzt weshalb des SetParent auf einmal nicht mehr ging.
Nach dem ich 0 übergeben hab, als Versuch die Form_listview wieder zu lösen, war auf einmal die Caption gelöscht, das heißt die Form hatte keinen Namen mehr und wurde deshalb auch nicht mehr gefunden. Ich hab die Caption wieder eingeben, aber vergebens, wird wieder gelöscht.
Dann hab ich´s zur Laufzeit zugewiesen immer direkt vor SetParent --> dann gings.

ABER:
Mein ursprüngliches Problem hab ich immernoch nicht lösen können.
Habe folgendes Versucht:

Delphi-Quellcode:

var Handler: HWND  //global

Delphi-Quellcode:

procedure zum Fangen
  Handler := Windows.GetParent(findwindow(nil,PChar('Form_Listview')));
  windows.SetParent(findwindow(nil,PCHar('Form_Listview')),Panel_Listview.Handle);

Delphi-Quellcode:

procedure zum Lösen
  windows.SetParent(findwindow(nil,PCHar('Form_Listview')),Handler);

Compilieren geht ohne gemecker, aber leider ohne Funktion leider noch nicht gegeben