Class TCustomWinTaskbar (unit WTaskBar)

Inherits from

TComponent

Constructors


constructor Create(aOwner: TComponent);

****************************** TCustomWinTaskbar *******************************


Functions

destructor Destroy;


procedure DblClick;

remove ourself from taskbar

procedure DoPopup(xPos, yPos: Integer);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

MS Workaround for incorrect handling of menu

procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Notification(Component: TComponent; Operation: TOperation);


procedure SetHint(const aValue: string);


procedure SetIcon(aValue: TIcon);


procedure SetShowIcon(aValue: Boolean);


procedure UpdateTaskbar;


procedure WMCallBack(var Message: TMessage);

remove

Properties

property Hint : string


property Icon : TIcon


property PopUpMenu : TPopupMenu


property ShowIcon : Boolean


Events

event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables

FHint : string;


FIcon : TIcon;


FNotifyIconData : TNotifyIconData;


FOnDblClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOwnerHandle : HWND;


FPopUpMenu : TPopupMenu;


FShowIcon : Boolean;


FWindowHandle : HWND;



Constructors


constructor Create(aOwner: TComponent);

****************************** TCustomWinTaskbar *******************************


Functions


destructor Destroy;


procedure DblClick;

remove ourself from taskbar


procedure DoPopup(xPos, yPos: Integer);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

MS Workaround for incorrect handling of menu


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Notification(Component: TComponent; Operation: TOperation);


procedure SetHint(const aValue: string);


procedure SetIcon(aValue: TIcon);


procedure SetShowIcon(aValue: Boolean);


procedure UpdateTaskbar;


procedure WMCallBack(var Message: TMessage);

remove


Properties


property Hint : string


property Icon : TIcon


property PopUpMenu : TPopupMenu


property ShowIcon : Boolean


Events


event OnDblClick : TNotifyEvent


event OnMouseDown : TMouseEvent


event OnMouseMove : TMouseMoveEvent


event OnMouseUp : TMouseEvent


Variables


FHint : string;


FIcon : TIcon;


FNotifyIconData : TNotifyIconData;


FOnDblClick : TNotifyEvent;


FOnMouseDown : TMouseEvent;


FOnMouseMove : TMouseMoveEvent;


FOnMouseUp : TMouseEvent;


FOwnerHandle : HWND;


FPopUpMenu : TPopupMenu;


FShowIcon : Boolean;


FWindowHandle : HWND;