Einzelnen Beitrag anzeigen

berens

Registriert seit: 3. Sep 2004
434 Beiträge
 
Delphi 10.4 Sydney
 
#1

Unabhängige neue TForm erzeugen

  Alt 19. Mär 2007, 17:29
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;
  Mit Zitat antworten Zitat