Class TTrayIcon (unit TrayIcon)

Inherits from

TComponent

Constructors


constructor create(aOwner : TComponent);

This routine ALWAYS re-sets the field value and re-loads the icon.


Functions

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);


Properties

property Active : boolean


property Icon : TIcon


property PopupMenu : TPopupMenu


property ShowDesigning : boolean


property ToolTip : string


Events

event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables

fActive : boolean;


fIcon : TIcon;


fOnClick : TNotifyEvent;

Events

fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


fPopupMenu : TPopupMenu;


fShowDesigning : Boolean;


fToolTip : String;


fWindowHandle : HWND;


IconData : TNOTIFYICONDATA;

Field Variables


Constructors


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.


Functions


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);


Properties


property Active : boolean


property Icon : TIcon


property PopupMenu : TPopupMenu


property ShowDesigning : boolean


property ToolTip : string


Events


event OnClick : TNotifyEvent


event OnDblClick : TNotifyEvent


event OnRightClick : TMouseEvent


Variables


fActive : boolean;


fIcon : TIcon;


fOnClick : TNotifyEvent;

Events


fOnDblClick : TNotifyEvent;


fOnRightClick : TMouseEvent;


fPopupMenu : TPopupMenu;


fShowDesigning : Boolean;


fToolTip : String;


fWindowHandle : HWND;


IconData : TNOTIFYICONDATA;

Field Variables