Hi leute,

ich habe in einem Projekt mehrere Formulare die ich gerne unabhängig von der Hauptform bedienen möchte. Es ergeben sich nämlich leider folgende Probleme:

Hauptform startet Log Fenster mit .Show. Dem Log Fenster hab ich schon einen eigenen Taskbareintrag gegeben:

markieren

Delphi-Quellcode:

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

Wenn ich nun die Hauptform in den Tray minimiere:

markieren

Delphi-Quellcode:

with Screen do
  begin
    DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,
                      Rect(Width - 20, Height, Width - 10, Height));
  end;
  frmHaupt.Hide;

Dann bleibt das Logfenster erhalten (stimmt so) aber es bleiben auch beide Taskbareinträge erhalten (von der Hauptform und vom Logfenster).

Das Problem scheint aber immer nur mit der ersten zusätzlichen Form aufzutreten. Wenn ich nämlich noch eine starte gibt es mit dieser keine Probleme. Mach ich das ganze umgekehrt hab ich mit dem Log Fenster keine Problem dafür aber mit der anderen.

Kennt ihr dieses Problem und wisst ihr wie ich es lösen kann?

Hier mal ein Vorschlag...

Danke für deinen Vorschlag. Leider ist es nicht gut wenn alle Fenster minimiert werden, sobald das Hauptfenster in den Tray minimiert wird.

Wenn man folgende Proceduren im dem Test Projekt ändert und dann das Hauptfenster minimiert kann man in der Taskleiste schön mein Problem sehen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFMain.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then begin
// FormA.Hide;
// FormB.Hide;
    Hide;
  end
  else inherited;
end;

procedure TFMain.TaskbarEvent(var Msg: TMessage);
var Point:TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONUP: begin
      // Linksklick...
// Self.Visible:=true;
// if FormA.isShow then
// FormA.Show;
// if FormB.isShow then
// FormB.Show;
// SetForegroundWindow(Self.Handle);
      Show;
    end;
    WM_RBUTTONUP: begin
      // Rechtsklick...
      GetCursorPos(Point);
      PopupMenu.Popup(Point.x, Point.y);
    end;
   end;
end;

Anbei die veränderte Exe (für die die zu faul sind es zu compilieren ).

Oh, ok, dann habe ich dich wohl nicht richtig verstanden.

Hier nochmal ein neuer Vorschlag...

AAAH das schaut schon besser aus

Ein kleines Problem noch: Wenn man Rechts auf den Taskbar eintrag von der MainForm klickt und dann auf minimieren wird die ganze Anwendung minimiert und außerdem nicht in den Tray "geschoben".
Ich erklär mir das dadurch das bei dieser Aktion die Message
procedure TFMain.WMSysCommand(var Message: TWMSysCommand); nicht aufgerufen wird. Gibt es dafür noch eine andere Message?

Kannst du mir bitte noch erklären was dieser Code genau macht und warum man ihn braucht?:

markieren

Delphi-Quellcode:

Owner := GetWindow(Handle, GW_OWNER);
ShowWindow(Owner, SW_HIDE);

Das mit dem Minimieren ist mir auch schon aufgefallen. Ich habe allerdings kein Event gefunden, das dort ausgelöst wird. Deshalb vermute ich mal, dass dort auch keines ausgelöst wird und Windows das alles selber organisiert. Das Verhalten ist ja prinzipell auch korrekt und der Taskeintrag bleibt erhalten. Dieses Minimieren ist demnach kein richtiges Minimieren der Anwendung.

Das ShowWindow sorgt dafür, dass der Taskeintrag verschwindet.

Zitat von omata:

Das ShowWindow sorgt dafür, dass der Taskeintrag verschwindet.

Jede Applikation hat nach meinem Wissen ein Applikationsfenster, welches nicht sichtbar ist. Allerdings sorgt dieses im Windows für den Taskbar-Eintrag. Mit GW_OWNER kommt man vom Fensterhandle auf eben jenes Applikationsfenster-Handle, welches dann versteckt wird mit SW_HIDE.

Gruß,
Christoph