Guten Abend,
habe gerade mit TurboDelphi und den beiden Komponenten ApplicationEvent und TrayIcon herum gespielt. Beim Aufruf des Minimieren soll die Application verschwinden und das TrayIcon erscheinen. Ich benutze folgenden Code:
Code:
...
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
TrayIcon1.Visible := True;
form1.FormStyle := fsStayOnTop;
Application.MainForm.Hide;
end;
procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin
TrayIcon1.Visible := False;
Application.Restore;
end;
...
Dies funktioniert beim aller ersten Mal auch einwandfrei. Nach Wiederherstellung der Application und dem Erneuten Minimieren, erscheint das TrayIcon aber die Application verschwindet nicht mehr aus der Taskleiste. Weiß einer warum?