Form Sichtbar obwohl MainForm minimized

[jonny]

Hallo allerseits!

Wie kann ich es anstellen das ein Fenster(Form) sichtbar bleibt auch wenn das Hauptformular minimiert wird?

[Dragon27]

hi,

vielleicht wenn du des secondform mit showmodal aufrufst und dann minimierst?

Aber keine Ahnung hab ich noch nie gemacht für was brauchst du des?

Gruß

Andy

[jonny]

Ist für einen Download manager da muss die Mainform in Tray minimiert sein und die Statusanzeigende Fenster für die jeweilige Downloads müssen sichtbar sein.

[Lefko]

Na du rufst einfach das Download-Anzeige-Fenster modal auf und machst das andere unsichtbar!

Delphi-Quellcode:

procedure TForm1.AnzeigeButtonClick(Sender : TObject);
begin
Application.MainForm.visible := false;
DownloadForm.ShowModal;
end;

MfG Lefko.

[jonny]

Also mein ihr es ist besser das drücken auf den minimieren knopf abfangen und die Form unsichtbar machen?

[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.