Programm minimiert starten - nur TrayIcon sichtbar

[Piro]

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.

[Mazel]

Gehe ich recht in der Annhame, dass du mit einer Komponente arbeitest und das TrayIcon nicht selber erzeugst?

[Piro]

Ich arbeite mit TurboDelphi Pro und da mit der Komponente TTrayIcon.

Im Anhang habe ich mal das Program mit Code angehangen. Ich hoffe echt, dass es mir einer erklären kann.

[Mazel]

Ich arbeite mit TCoolTrayIcon, weis nicht ob die ähnlich sind.
Ich mach dass dann immer so im OnCreate:

Delphi-Quellcode:

 Application.ShowMainForm := False;

Vorher solltest du im Objektinspektor IconVisible bzw. bei dir nur Visible auf True stellen falls es das bei dir im OI gibt.

Probier es mal aus :wink:

Gruß
Mazel

[Piro]

danke, aber wenn ich das mache, verschwindet die Applikation nicht wirklich. Siehe Screenshot.

Wie bekomme ich denn das noch weg.

[matashen]

Das was ihr braucht heißt einfach ein guter Suchbegriff für die DP-Suche. Wie wärs mit TNA, so nennt sich das "Systray" und da findest du auch alles was du brauchst um das Problem zu lösen.

[Piro]

alles klar, die Lösung ist:

Delphi-Quellcode:

Application.ShowMainForm := False;

[Mazel]

Hattest du nicht nach meinem Beitrag geschrieben, dass es nicht geht? Sicher hattest du noch dein MinimizeEvent aktiv.