Class TKolSystemMenu (unit SysKMenu)

Inherits from

TComponent

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 : TPopupMenu

Call this function from own handler of Application.

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 : TPopupMenu

Call this function from own handler of Application.OnMessage


property Position : integer


Events


Variables


fOldOnMessage : TMessageEvent;


FPopupMenu : TPopupMenu;


FPosition : integer;