Einzelnen Beitrag anzeigen

Benutzerbild von gsh
gsh

Registriert seit: 24. Okt 2004
1.542 Beiträge
 
Delphi XE Architect
 
#5

Re: Zusätzliche Forms unabhängig von der Hauptform steuern

  Alt 1. Feb 2009, 22:17
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:
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 ).
Angehängte Dateien
Dateityp: exe formtest_766.exe (395,0 KB, 7x aufgerufen)
Alex
"Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
  Mit Zitat antworten Zitat