Fenster bei mehr als einem form richtig minimieren

[Van HelF]

hallo,
ich habe ein programm, mit mehreren forms, wenn ich das hauptform minimiere ,dann erscheint dieses korrekt in der taskleiste.
Wenn ich jedoch ein form >=2 minimiere dann wird dies am linken bildschirmrand über die taskleiste minimiert.
Gibt es eine möglichkeit diese fenster auch richtig, also in die taskleiste zu minimieren ?

[mkinzler]

Regagiere auf die Anforderung im 2. Fenster mit Minimierung der Hauptform.

[Van HelF]

ich habe folgendes geschrieben jedoch wird das form immernoch nicht richtig minimiert.
(das hauptform ist wenn ein anderes form geöffnet ist immer unsichtbar)

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  application.OnMinimize:=min;
end;

procedure Tform3.min(Sender: TObject);
begin
  form1.WindowState:=wsminimized;
end;

[mkinzler]

Versuch mal:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  OnMinimize:=min;
end;

[Van HelF]

standardmäßig gibt es meines wissens nach leider kein form.onminimize ereignis

[mkinzler]

Zitat von Van HelF:

standardmäßig gibt es meines wissens nach leider kein form.onminimize ereignis

Stimmt, das Erignis heißt .onHide

[Van HelF]

ich hab folgendes ausprobiert, funktioniert leider auch nicht

Delphi-Quellcode:

procedure TForm2.FormHide(Sender: TObject);
begin
  form1.WindowState:=wsminimized;
end;

[mkinzler]

Noch'n Versuch:

Zitat:

Delphi-Quellcode:

procedure TForm2.FormHide(Sender: TObject);
begin
  form1.Hide;
end;

[Balu der Bär]

Application.Minimize;

[DocE]

N'Abend zusammen!

OnHide löst beim Minimieren gar nicht aus (nur bei Visible := false), höchstens FormDeactivate, dies allerdings auch beim Schließen oder wie der Name schon sagt beim Deaktivieren (beides unerwünscht).

Probier mal folgendes, das geht:

Delphi-Quellcode:

  (...)

  private
    procedure MyWM_SYSCOMMAND(var aMsg: TMessage); message WM_SYSCOMMAND;

  (...)

procedure TForm2.MyWM_SYSCOMMAND(var aMsg: TMessage);
begin 

  if aMsg.WParam = SC_MINIMIZE then 
    Application.Minimize 
  else 
    inherited; 

end;

Grüsse
...Doc