Danke für deine Hilfe!
Ich scheine aber was falsch zu machen...
Delphi-Quellcode:
...
procedure TfmMain.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then begin
// Fenster Minimieren
if Running = false then begin
fmMain.StaticIcon.Visible := true;
fmMain.AniIcon.Visible := false;
fmMain.AniIcon.Animate := false;
end;
if Running = true then begin
fmMain.StaticIcon.Visible := false;
fmMain.AniIcon.Visible := true;
fmMain.AniIcon.Animate := true;
end;
end;
DefaultHandler(Msg);
end;
...
Bei Doppelklick auf das TrayIcon...
Delphi-Quellcode:
...
Application.RestoreTopMosts;
if AniIcon.Visible then AniIcon.Visible := false;
if StaticIcon.Visible then StaticIcon.Visible := false;
...
Und das Fenster kommt einfach nicht wieder "hoch"
