Form Sichtbar obwohl MainForm minimized

[himitsu]

Du kannst auch den Minimierenbutton etwas abändern.

Delphi-Quellcode:

Unit ...;

Interface
  Uses ...

  Type TForm1 = Class(TForm)
    Private
    Public
      Procedure WMSysCommand(Var Message: TWMSysCommand); Message WM_SYSCOMMAND;
    End;

  Var Form1: TForm1;

Implementation
  {$R *.dfm}

  Procedure TForm1.WMSysCommand(Var Message: TWMSysCommand);
    Begin
      If Message.CmdType and $FFF0 = SC_Minimize Then Visible := False Else inherited;
    End;

  Procedure {TForm1.}... // um's wieder sichtbar zu machen
    Begin
      {Form1.}Visible := True;  // Form1, falls die Prozedur nicht zu TForm1 gehört
    End;

End.

Ich hab bei einem Proggi dynamisch erstellte Fenster, die werden allerdings nicht ausgeblendet, wenn das Hauptformulat minimiert wird. Diese Fenster sind aber auch nicht direkt mit dem Hauptformular verknüpft.