Class TTrayIcon (unit TrayIcon) |
Inherits from
TComponent
constructor create(aOwner : TComponent);
- This routine ALWAYS re-sets the field value and re-loads the icon.
destructor destroy;
function AddIcon : boolean;
is not passed in with message so make it 0
function DeleteIcon : boolean;
procedure DoRightClick( Sender : TObject );
procedure FillDataStructure;
function ModifyIcon : boolean;
For some reason, if there is no tool tip set up, then the icon doesn't display.
procedure SetActive(Value : boolean);
procedure SetIcon(Value : TIcon);
procedure SetShowDesigning(Value : boolean);
procedure SetToolTip(Value : String);
procedure WndProc(var msg : TMessage);
property Active : boolean
property Icon : TIcon
property PopupMenu : TPopupMenu
property ShowDesigning : boolean
property ToolTip : string
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnRightClick : TMouseEvent
fActive : boolean;
fIcon : TIcon;
fOnClick : TNotifyEvent;
Events
fOnDblClick : TNotifyEvent;
fOnRightClick : TMouseEvent;
fPopupMenu : TPopupMenu;
fShowDesigning : Boolean;
fToolTip : String;
fWindowHandle : HWND;
IconData : TNOTIFYICONDATA;
Field Variables
constructor create(aOwner : TComponent);
This routine ALWAYS re-sets the field value and re-loads the icon. This is so the ToolTip can be set blank when the component is first loaded. If this is changed, the icon will be blank on the tray when no ToolTip is specified.
destructor destroy;
function AddIcon : boolean;
is not passed in with message so make it 0
function DeleteIcon : boolean;
procedure DoRightClick( Sender : TObject );
procedure FillDataStructure;
function ModifyIcon : boolean;
For some reason, if there is no tool tip set up, then the icon doesn't display. This fixes that.
procedure SetActive(Value : boolean);
procedure SetIcon(Value : TIcon);
procedure SetShowDesigning(Value : boolean);
procedure SetToolTip(Value : String);
procedure WndProc(var msg : TMessage);
property Active : boolean
property Icon : TIcon
property PopupMenu : TPopupMenu
property ShowDesigning : boolean
property ToolTip : string
event OnClick : TNotifyEvent
event OnDblClick : TNotifyEvent
event OnRightClick : TMouseEvent
fActive : boolean;
fIcon : TIcon;
fOnClick : TNotifyEvent;
Events
fOnDblClick : TNotifyEvent;
fOnRightClick : TMouseEvent;
fPopupMenu : TPopupMenu;
fShowDesigning : Boolean;
fToolTip : String;
fWindowHandle : HWND;
IconData : TNOTIFYICONDATA;
Field Variables