TrayIcon mit Application.Hint und PopUp bestücken

danielsun · Hält's aus hier Beiträge: 7

Zitat:

Auch ich möchte ein Icon in die Systray legen und mit Application.Hint und einem PopUp zuweisen.
bis jetzt:

Code:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var 
  NID : TNotifyIconData = ( 
    cbsize           : sizeof(TNotifyIconData); 
    uID              : 0; 
    uFlags           : NIF_MESSAGE or NIF_ICON or NIF_TIP; 
    uCallbackMessage : WM_TRAYMSG; 
    //szTip            : 'irgendein String'; 
    //szTip            : LStrCpy(NID.szTip,pchar(Application.Hint)); 

  );

Folgendes soll passieren:
Wenn die Maus über das Icon in der Systray fährt soll es genauso wie in der Taskleiste den Application.Hint anzeigen und bei einem rechten Mausklick ein Popup an der Stelle des Cursors aufklappen.

Kann ich dem szTip irgendwie den Hint zuweisen oder was wollte mir Matthias damit sagen
Code:

markieren

Quelltext

1:	LStrCpy(NID.szTip,pchar(Application.Hint));

In weniger als 0.5 Std ist bei mir Wochenennnnnnndeeeeeeeeeeeeeeeeeeeeeee!!

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:	szTip : pointer(Application.Hint);

Den Rest dürftset du hier im Forum finden, wenn du nach TNA suchst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme