| Class TKolSystemMenu (unit SysKMenu) |
TComponent
| Constructors |
constructor Create (AnOwner: TComponent);| Functions |
destructor Destroy;
function HandleSysMenu (var Msg: TMsg): boolean;
procedure AppendTo(Item: TMenuItem; Menu: HMENU; nPos: integer);
procedure AppMessage (var Msg: TMsg; var Handled: Boolean);
procedure Loaded;
procedure SetPopupMenu (Value: TPopupMenu);
procedure SetPosition (Value: integer);
procedure UpdateMenu;| Properties |
property PopupMenu : TPopupMenu
property Position : integer| Events |
| Variables |
fOldOnMessage : TMessageEvent;
FPopupMenu : TPopupMenu;
FPosition : integer;| Constructors |
constructor Create (AnOwner: TComponent);***************************************************
| Functions |
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;***************************************************
| Properties |
property PopupMenu : TPopupMenuCall this function from own handler of Application.OnMessage
property Position : integer| Events |
| Variables |
fOldOnMessage : TMessageEvent;
FPopupMenu : TPopupMenu;
FPosition : integer;