Unabhängige neue TForm erzeugen

[berens]

Hi!

Ich habe eine TForm (Form2) die zu Programmstart in einem anderem Form (Form1) liegt. Bei Bedarf soll diese jedoch auch so verwendet werden können, dass ich Form2 als eigenständiges Fenster (auch in Taskleiste sichtbar) habe und auch noch sehen kann, wenn ich Form1 minimiere (normalerweise werden alle "Client"-Forms mit minimiert...).

Code:

  FContainerForm := TForm.CreateNew(NIL, 0);
  with FContainerForm do begin
    Left := 0;
    Top := 0;
    Parent := Form1;
    OnKeyDown := FormKeyDown;
    DoubleBuffered := True;
    BorderStyle := bsNone;
    KeyPreview := True;
    if not isDeveloperMode then begin
      FormStyle := fsStayOnTop;
    end;
    Show;
    Align := alClient;
  end;

[MacGuyver]

Moin auch!

Wenn du beim Create Application übergibt geschiet das doch automatisch, oder?

[IngoD7]

Zitat von berens:

Ich habe eine TForm (Form2) die zu Programmstart in einem anderem Form (Form1) liegt. Bei Bedarf soll diese jedoch auch so verwendet werden können, dass ich Form2 als eigenständiges Fenster (auch in Taskleiste sichtbar) habe und auch noch sehen kann, wenn ich Form1 minimiere (normalerweise werden alle "Client"-Forms mit minimiert...).

Unabhängig von der eigentlichen Frage würde ich in jedem Fall die Application (oder meinetwegen das Hauptform Form1) dem Konstruktor als Owner übergeben!

Du kannst dein Form "eigenständig" anzeigen lassen, indem du folgendes machst:

Delphi-Quellcode:

DeinForm.Parent := nil;
DeinForm.ParentWindow := GetDesktopWindow;

Danach verhält es sich aber nicht mehr unbedingt so, wie es sich zuvor verhalten hat. Möglicherweise muss die Eigenschaft ControlStyle auch angepasst werden (z.B. bei TButton nötig, wenn man ihn auf den Desktop legt und weiterhin seine Klicks in der Ursprungsanwendung empfangen möchte). Vielleicht muss auch an anderen Stellen noch eingegriffen werden.

Daher ist diese "Lösung" hier lediglich ein Ansatz.

[berens]

Hat funktioniert, vielen Dank!

Owner wurde angepasst, danke für den Hinweis.

An ParentWindow hatte ich garnet gedacht!
Thx.