Hi Leute,
wieder einmal das leidige Thema TrayIcon. Aber ich bekomme es einfach nicht.
Folgendes möchte ich umsetzen: Programm wird gestartet und erscheint nur als TrayIcon. Das klingt eigentlich recht einfach aber ist es irgendwie nicht.
Minimierung:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
Application.MainForm.Hide;
TrayIcon1.Visible := True;
end;
Wiederherstellen:
Delphi-Quellcode:
procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
Application.MainForm.Show;
Application.Restore;
Application.BringToFront;
TrayIcon1.Visible := False;
end;
Funktioniert es alles bestens. Wie kann das Programm starten und es erscheint nur als TrayIcon?
Folgendes habe ich probiert:
Form Eigenschaft: WindowsState := wsMinimized => TrayIcon erscheint aber der Taskleisteneintrag nicht
Ich hoffe einer kann mir den richtigen Tip geben. Danke.