Ausblenden des Hauptformulars(SDI), aber nicht daraus erzeugte Child Formulare

[dstein]

Vieleicht hilft das weiter warum mich frage. In meinem Beispiel habe ich ein simples PostIT Tool gebaut. Das Programm und Basisverhalten entspricht meiner Vorstellung wie ohne Kopfzeile und Rahmenloses Clientformular das per Maus halten verschoben werden kann, kleine Feature StayOnTop Farben für Font und Background, zentrales speichern der Notizen in einer einfachen SQLite Tabelle usw..
Nur das Mainform minimieren, weil es zum normalen Gebrauch ausser per Doppelklick oder PopupMenu einen neuen PostIT-Zettel erstellen, nicht benötigt wird, bekomme ich nicht hin. Das im Mainform ein Grid mit allen PostIT-Zettel enthalten ist, ist nur eine Spielerrei.
Am Rande bemerkt; Alles was ich mit Delphi mache ist Hobby weil es mir Spaß macht ohne kommerzielle Ambitionen.

[KodeZwerg]

Ich weiß nicht genau ob es das ist wonach Du suchst aber zumindest kannst Du hiermit Dein Hauptfenster minimieren/verstecken und all Deine anderen Fenster bleiben offen.

Delphi-Quellcode:

{ -----------------------------------------------------------------------------
  Unit Name: frClient
  Unit Pfad: C:\DelphiSourceXE\PostIt_2022
  Projekt  : PostIt
  Plattform:

  Uses: CodeSiteLogging, DsUnitXE3,
  ### ChangeLog
  28.01.2021
  28.01.2021 Createdatum
  ----------------------------------------------------------------------------- }
unit frClient;

interface

uses //CodeSiteLogging,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.Types,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus, Vcl.DBCtrls, Data.DB, DBAccess, Uni, MemDS;

type
  TfrmClient = class(TForm)
    PopMnu: TPopupMenu;
    nmuDelete: TMenuItem;
    DBMmo: TDBMemo;
    Qry: TUniQuery;
    ds: TUniDataSource;
    QryIDNR: TIntegerField;
    QryFrmName: TStringField;
    QrysNotiz: TStringField;
    QryBKColor: TStringField;
    QryclTop: TIntegerField;
    QryclLeft: TIntegerField;
    QryclHeight: TIntegerField;
    QryclWidth: TIntegerField;
    QryiStayOnTop: TIntegerField;
    nmuStayOnTop: TMenuItem;
    dlgColor: TColorDialog;
    nmuColor: TMenuItem;
    QryftColor: TStringField;
    nmuFtColor: TMenuItem;
    procedure nmuDeleteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBMmoChange(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure nmuStayOnTopClick(Sender: TObject);
    procedure DBMmoMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DBMmoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure DBMmoMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure nmuColorClick(Sender: TObject);
    procedure nmuFtColorClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  private
    FInitialPos: TPoint;

    procedure SaveSetUp;

    { Private-Deklarationen }
  public
    PubiIDNR: Integer;

    bDel: Boolean;

    procedure SetData(iIDNR: Integer);

  end;

var
  frmClient: TfrmClient; // frClient

implementation

uses frPostIt;

{$R *.dfm}

procedure TfrmClient.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;
end;

CodeSiteLogging habe ich nicht, deine eigene DsUnitXE3 fehlt leider auch im Download.
Wenn ich beides auskommentiere und entsprechende Zeilen ändere kann ich Dein Projekt starten.

[KodeZwerg]

Ps: Zum testen hatte ich Deiner Hauptform einen Style mit minimieren Button ausgestattet

[Rolf Frei]

Bin nicht sicher ob das auf einfache Art lösbar ist. Bin auch nicht sicher, ob das normales Windows- oder Delphi Verhalten ist (Minimierung des Hauptfensters). Ein Lösungsansatz könnte aber eventuell sein, ein spezielles unsichtbares Hauptformular zu untzen (ev. W=0/H=0, wenn Visble False nicht geht), welches dann das Anwendungshautpformular ist. Dein aktuelles Hauptformular würde dann auch zu einem "normalen" Formular und hätte keinen Einfluss mehr auf die anderen PostIt Fenster. Das ist mal so ein Ideenansatz, habe es selber aber nicht ausprobiert.

[KodeZwerg]

Zitat von Rolf Frei:

Bin nicht sicher ob das auf einfache Art lösbar ist. Bin auch nicht sicher, ob das normales Windows- oder Delphi Verhalten ist (Minimierung des Hauptfensters). Ein Lösungsansatz könnte aber eventuell sein, ein spezielles unsichtbares Hauptformular zu untzen (ev. W=0/H=0, wenn Visble False nicht geht), welches dann das Anwendungshautpformular ist. Dein aktuelles Hauptformular würde dann auch zu einem "normalen" Formular und hätte keinen Einfluss mehr auf die anderen PostIt Fenster. Das ist mal so ein Ideenansatz, habe es selber aber nicht ausprobiert.

Das ding ist, solange es nur ein button auf der taskbar gibt, verhalten sich alle fenster entsprechend des hauptfensters, mit meiner obigen methode wird dieses verhalten auf den kopf gestellt und jedes weitere fenster von dieser klasse bekommt sein eigenen taskbar button spendiert, entkoppelt vom hauptfenster, das einzige was die noch zusammenhält ist ein schließen des hauptfensters.