Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: Zusätzliche Forms unabhängig von der Hauptform steuern
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 ).
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
|