Class TTaskBarInfo (unit TaskBarInfo) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- In a Win32 environment, create our own app bar so we can see the messages generated by the Task Bar.
destructor Destroy;
In a Win32 environment, remove our app bar and destroy it.
procedure DoOnBarChange;
Prcedure triggered by Windows messages.
procedure GetInfo;
Get the information about the task bar.
procedure SetBarPos(value: TBarPosition);
procedure SetBool(value: Boolean);
procedure SetInt(value: Integer);
Procedure to set properties.
procedure SetWindowName(value: String);
procedure WndProc(var Msg: TMessage);
In Win32, this procedure receives ABN_xxx messages from other application bars.
property AlwaysOnTop : boolean
property AutoHide : boolean
property BarFound : boolean
property BarHeight : integer
property BarHidden : boolean
property BarPosition : TBarPosition
property BarRect : TBarRect
property BarWidth : integer
property WindowName : string
event OnBarChange : TNotifyEvent
FAlwaysOnTop : Boolean;
FAutoHide : Boolean;
FBarFound : Boolean;
FBarHeight : Integer;
FBarHidden : Boolean;
FBarPosition : TBarPosition;
FBarRect : TBarRect;
FBarWidth : Integer;
FMonitorWindow : HWND;
FOnBarChange : TNotifyEvent;
FWindowHandle : HWnd;
FWindowName : String;
constructor Create(AOwner: TComponent);
In a Win32 environment, create our own app bar so we can see the messages generated by the Task Bar.
destructor Destroy;
In a Win32 environment, remove our app bar and destroy it.
procedure DoOnBarChange;
Prcedure triggered by Windows messages.
procedure GetInfo;
Get the information about the task bar.
procedure SetBarPos(value: TBarPosition);
procedure SetBool(value: Boolean);
procedure SetInt(value: Integer);
Procedure to set properties.
procedure SetWindowName(value: String);
procedure WndProc(var Msg: TMessage);
In Win32, this procedure receives ABN_xxx messages from other application bars. I would like to use this to trigger the ON_BAR_CHANGE event. {$ifdef WIN32
property AlwaysOnTop : boolean
property AutoHide : boolean
property BarFound : boolean
property BarHeight : integer
property BarHidden : boolean
property BarPosition : TBarPosition
property BarRect : TBarRect
property BarWidth : integer
property WindowName : string
event OnBarChange : TNotifyEvent
FAlwaysOnTop : Boolean;
FAutoHide : Boolean;
FBarFound : Boolean;
FBarHeight : Integer;
FBarHidden : Boolean;
FBarPosition : TBarPosition;
FBarRect : TBarRect;
FBarWidth : Integer;
FMonitorWindow : HWND;
FOnBarChange : TNotifyEvent;
FWindowHandle : HWnd;
FWindowName : String;