Klingt gut, funktioniert aber leider nicht.
Es ist zum verrückt verden. Ich mache folgendes um die Form zu verstecken und wieder anzuzeigen:
Verstecken bei minimieren:
Delphi-Quellcode:
procedure TfrmMain.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
begin
TrayIcon.Visible := True;
Self.Hide;
end else inherited;
end;
Wieder anzeigen bei Doppelklick auf TrayIcon:
Delphi-Quellcode:
procedure TfrmMain.TrayIconDblClick(Sender: TObject);
begin
Self.Show;
TrayIcon.Visible := False;
end;
Vielleicht hilft das noch weiter. Ich bin mit meinem latein etwas am Ende!
Grüße
ddcool