Class TSystemTrayIcon (unit SysTray)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

public} { Public declarations


Functions

destructor Destroy;


function GetHint: String;


procedure HWndProcedure(var Mess: TMessage);


procedure Loaded;


procedure SetDisabledIcon(NewIcon: TIcon);


procedure SetEnabled(IsEnabled: Boolean);


procedure SetHIcon(NewHIcon: hIcon);


procedure SetHint(NewHint: String);


procedure SetIcon(NewIcon: TIcon);


procedure WMLButtonDblClk(var Mess: TMessage);


procedure WMLButtonDown(var Mess: TMessage);


procedure WMLButtonUp(var Mess: TMessage);


procedure WMMouseMove(var Mess: TMessage);


procedure WMRButtonDblClk(var Mess: TMessage);


procedure WMRButtonDown(var Mess: TMessage);


procedure WMRButtonUp(var Mess: TMessage);


Properties

property DisabledIcon : TIcon


property Enabled : Boolean


property Hint : String


property Icon : TIcon


property IconHandle : hIcon


Events

event OnDblClick : TMouseButtonProc


event OnMouseDown : TMouseButtonProc


event OnMouseMove : TMouseMoveProc


event OnMouseUp : TMouseButtonProc


Variables

FDisabledIcon : TIcon;


FEnabled : Boolean;


FhIcon : hIcon;

protected

FHWnd : hWnd;


FIcon : TIcon;


FNotifyIconData : TNotifyIconData;


FOnDblClick : TMouseButtonProc;


FOnMouseDown : TMouseButtonProc;


FOnMouseMove : TMouseMoveProc;


FOnMouseUp : TMouseButtonProc;



Constructors


constructor Create(AOwner: TComponent);

public} { Public declarations


Functions


destructor Destroy;


function GetHint: String;


procedure HWndProcedure(var Mess: TMessage);


procedure Loaded;


procedure SetDisabledIcon(NewIcon: TIcon);


procedure SetEnabled(IsEnabled: Boolean);


procedure SetHIcon(NewHIcon: hIcon);


procedure SetHint(NewHint: String);


procedure SetIcon(NewIcon: TIcon);


procedure WMLButtonDblClk(var Mess: TMessage);


procedure WMLButtonDown(var Mess: TMessage);


procedure WMLButtonUp(var Mess: TMessage);


procedure WMMouseMove(var Mess: TMessage);


procedure WMRButtonDblClk(var Mess: TMessage);


procedure WMRButtonDown(var Mess: TMessage);


procedure WMRButtonUp(var Mess: TMessage);


Properties


property DisabledIcon : TIcon


property Enabled : Boolean


property Hint : String


property Icon : TIcon


property IconHandle : hIcon


Events


event OnDblClick : TMouseButtonProc


event OnMouseDown : TMouseButtonProc


event OnMouseMove : TMouseMoveProc


event OnMouseUp : TMouseButtonProc


Variables


FDisabledIcon : TIcon;


FEnabled : Boolean;


FhIcon : hIcon;

protected


FHWnd : hWnd;


FIcon : TIcon;


FNotifyIconData : TNotifyIconData;


FOnDblClick : TMouseButtonProc;


FOnMouseDown : TMouseButtonProc;


FOnMouseMove : TMouseMoveProc;


FOnMouseUp : TMouseButtonProc;