Cool tray Icon

[TitanNano]

Hi,
wo kann ich das Tool "Cool Tray Icon" herunter laden?

[Luckie]

Das ist kein Tool, sondern eine Delphi Komponente. Welche Delphi Version hast du? Bei den neueren ist so eine Komponente für die TNA schon dabei.

[aurikel_Max]

http://www.delphipraxis.net/internal...ct.php?t=36388

bzw. als Antwort auf deine Frage: http://subsimple.com/download/CoolTrayIcon.zip

[TitanNano]

danke, aber immer wen ich den Komponente Compilieren will heißt es ,dass das VCL50 fehlt wo finde ich das?

[Luckie]

Kann es sein, dass du nicht du zu deinem Delphi passende Version runtergeladen hast. VCL50 klingt nach Delphi 5 oder so. Aber noch mal die Frage, welche Delphi Version hast du? eventuell brauchst du gar keine Fremdkomponente.

[TitanNano]

Delphi 2005

[Luckie]

Guck mal in der Komponentenpalette, kann sein, dass es bei Delphi 2005 schon dabei ist.

[aurikel_Max]

Zitat:

Zitat von Luckie

Kann es sein, dass du nicht du zu deinem Delphi passende Version runtergeladen hast. VCL50 klingt nach Delphi 5 oder so. Aber noch mal die Frage, welche Delphi Version hast du? eventuell brauchst du gar keine Fremdkomponente.

Zitat:

Open CoolTrayIcon_D5.dpk (Delphi 5)
Click Compile, then Install.
That's it.

Hast du so befolgt oder?

[Luckie]

Delphi 5 ist aber nicht Delphi 2005. Er hat die falsche Version runtergeladen. Er braucht die für Delphi 2005. Oder er verzichtet auf die Komponente und macht es von Hand selber, was auch nicht sehr viel Aufwand ist.

[aurikel_Max]

Zitat:

Zitat von Luckie

Delphi 5 ist aber nicht Delphi 2005. Er hat die falsche Version runtergeladen. Er braucht die für Delphi 2005. Oder er verzichtet auf die Komponente und macht es von Hand selber, was auch nicht sehr viel Aufwand ist.

Stimmt, bin gedanklich noch bei Canvas.LineTo und so - darum geht es morgen in der Info-Klausur. :)
Entschuldige ;)

[TitanNano]

woher bekomme ich die richtige Version?

[Luckie]

Bei Google? delphi cooltrayicon download. Jedenfalls würde ich das mal versuchen. Aber hast du jetzt mal geguckt, ob es nicht schon bei Delphi dabei ist?

[TitanNano]

nein es ist nicht dabei.

[haentschman]

:gruebel: heißt das nicht TTrayIcon was bei Delphi dabei ist ? (Reiter: Zusätzlich) Schau mal, ob das da ist. CoolTrayIcon halte ich für eine D5 Fremdkomponente welche man ab TTrayIcon nicht mehr braucht.

[OrNEC]

Muss du aufpassen, falls deine Anwendung im System Tray ist lässt sich das Windows nicht runterfahren.

Hier die Abhilfe:

Delphi-Quellcode:

*****Deutsch*****

Windows sendet die WM_QUERYENDSESSION Nachricht an alle laufenden Anwendungen
und wartet auf deren Antwort.
Wenn irgendeine Anwendungen 0 zurückgibt endet die Session nicht ansonsten
sendet Windows eine WM_ENDSESSION Nachricht an alle Anwendungen.
Jede Anwendung, die darauf mit TRUE antwortet,
kann jederzeit von Windows beendet werden.



Windows NT/2000/XP: When an application returns TRUE for this message,
it receives the WM_ENDSESSION message and it is terminated,
regardless of how the other applications respond to the WM_QUERYENDSESSION message.

Windows 95/98/Me: After all applications return TRUE for this message,
they receive the WM_ENDSESSION and they are terminated.


private
  procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
end;

Implementation

procedure TForm1.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  if MessageDlg('Close Windows now/ Windows beenden?',
                            mtConfirmation,
                            [mbYes,mbNo], 0) = mrNo then
      Msg.Result := 0
   else
      Msg.Result := 1;
end;

[Blackheart]

CoolTrayIcon