Minimieren Sie nicht sekundäre Formen
Dieser Artikel beschreibt, wie man stoppt alle Formen in einer Delphi-Anwendung von minimieren, wenn das Hauptformular minimiert.
Für jedes Kind-Formular, das Sie sichtbar bleiben wollen, dies tun
Typ
TSomeForm = class(TForm)
geschützt
Verfahren CreateParams (Var Params: TCreateParams); außer Kraft setzen;
Ende;
Umsetzung
Procedure TSomeForm.CreateParams (Var Params: TCreateParams);
beginnen
geerbte CreateParams(Params);
Params.WndParent: = GetDesktopWindow;
Ende;
Minimieren Sie nicht sekundäre Formen
Minimieren Sie nicht sekundäre Formen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Dieser Artikel beschreibt, wie man stoppt alle Formen in einer Delphi-Anwendung von minimieren, wenn das Hauptformular minimiert.
Für jedes Kind-Formular, das Sie sichtbar bleiben wollen, dies tun
Typ
TSomeForm = class(TForm)
geschützt
Verfahren CreateParams (Var Params: TCreateParams); außer Kraft setzen;
Ende;
Umsetzung
Procedure TSomeForm.CreateParams (Var Params: TCreateParams);
beginnen
geerbte CreateParams(Params);
Params.WndParent: = GetDesktopWindow;
Ende;
Minimieren Sie nicht sekundäre Formen
By Wiezutun
Minimieren Sie nicht sekundäre Formen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.