Class TKolSystemMenu (unit SysKMenu) |
Inherits from
TComponent
constructor Create (AnOwner: TComponent);
- ***************************************************
destructor Destroy;
***************************************************
function HandleSysMenu (var Msg: TMsg): boolean;
***************************************************
procedure AppendTo(Item: TMenuItem; Menu: HMENU; nPos: integer);
*************************************************** Taken from Delphi's Menus unit, should be changed accordingly
procedure AppMessage (var Msg: TMsg; var Handled: Boolean);
***************************************************
procedure Loaded;
***************************************************
procedure SetPopupMenu (Value: TPopupMenu);
***************************************************
procedure SetPosition (Value: integer);
***************************************************
procedure UpdateMenu;
***************************************************
property PopupMenu : TPopupMenu
Call this function from own handler of Application.
property Position : integer
fOldOnMessage : TMessageEvent;
FPopupMenu : TPopupMenu;
FPosition : integer;
constructor Create (AnOwner: TComponent);
***************************************************
destructor Destroy;
***************************************************
function HandleSysMenu (var Msg: TMsg): boolean;
***************************************************
procedure AppendTo(Item: TMenuItem; Menu: HMENU; nPos: integer);
*************************************************** Taken from Delphi's Menus unit, should be changed accordingly
procedure AppMessage (var Msg: TMsg; var Handled: Boolean);
***************************************************
procedure Loaded;
***************************************************
procedure SetPopupMenu (Value: TPopupMenu);
***************************************************
procedure SetPosition (Value: integer);
***************************************************
procedure UpdateMenu;
***************************************************
property PopupMenu : TPopupMenu
Call this function from own handler of Application.OnMessage
property Position : integer
fOldOnMessage : TMessageEvent;
FPopupMenu : TPopupMenu;
FPosition : integer;