Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi CoolTrayIcon (Tray Icon wird immer angezeigt. (https://www.delphipraxis.net/63161-cooltrayicon-tray-icon-wird-immer-angezeigt.html)

wlfmario 14. Feb 2006 18:34


CoolTrayIcon (Tray Icon wird immer angezeigt.
 
Hallo,

ich habe mir mal die Komponenten CoolTryIcon installiert !
Leider habe ich jetzt das Problem, das wenn ich mein Form im OnClick Ereigniss von CoolTrayIcon wieder anzeigen lasse, bleibt das Tray Icon immer unten im Tray stehen was nicht so schön ist.

Hier mal der Code:
Delphi-Quellcode:
procedure THauptForm.CoolTrayIcon1Click(Sender: TObject);
  begin
      CoolTrayIcon1.ShowMainForm;
      CoolTrayIcon1.HideTaskbarIcon;
  end;
Muß ich etwas beachten damit das Tray wieder verschwindet ?

dahead 14. Feb 2006 19:00

Re: CoolTrayIcon (Tray Icon wird immer angezeigt.
 
du musst das TrayIcon selbst noch ausblenden:

Delphi-Quellcode:
// Hide Trayicon
CoolTrayIcon1.IconVisible := False;

wlfmario 14. Feb 2006 19:09

Re: CoolTrayIcon (Tray Icon wird immer angezeigt.
 
Danke das war es !

Eine kleine Frage noch !

Wenn ich mein Programm minimiert starte, soll ein BallonText angezeigt werden !
Leider zeigt er den Text erst an wenn ich das Form Maxi. und danach wider Minimiere.
Was kann man da machen ?

Code:
Delphi-Quellcode:
procedure THauptForm.CoolTrayIcon1MinimizeToTray(Sender: TObject);
  begin
     CoolTrayIcon1.ShowBalloonHint('Überschrift', 'Das Programm wird weiter ausgeführt', bitInfo, 10);
  end;

Nicolai1234 14. Feb 2006 19:25

Re: CoolTrayIcon (Tray Icon wird immer angezeigt.
 
Schreib die eine Zeile nicht in das "MinimizeToTray" Ereignis, sondern in das Form.Create Ereignis. Dann sollte es eigentlich gehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz