Class TSystemMenu (unit SysMenu)

Inherits from

TComponent

Constructors


constructor Create(aOwner:TComponent);

TSystemMenu


Functions

destructor Destroy;


procedure NewTFormMDIClientWndProc(var Message:TMessage);


procedure NewTFormWndProc(var Message:TMessage);


procedure AddMenu(menu:TMenuitem;handle:Integer);


procedure SetSystemMenu(value:TPopupMenu);


Properties

property About : TAboutProperty


property SystemMenu : TPopupMenu


Events

Variables

aOwnerHandle : Integer;


CountSub : Byte;


FAbout : TAboutProperty;


FNewTFormMDIClientWndProcInstance : Pointer;


FNewTFormWndProcInstance : Pointer;


FOldTFormMDIClientWndProc : Pointer;


FOldTFormWndProc : Pointer;


FSystemMenu : TPopupMenu;


FTPUHandle : THandle;


SubCommand : array[1..20] of Integer;



Constructors


constructor Create(aOwner:TComponent);

TSystemMenu


Functions


destructor Destroy;


procedure NewTFormMDIClientWndProc(var Message:TMessage);


procedure NewTFormWndProc(var Message:TMessage);


procedure AddMenu(menu:TMenuitem;handle:Integer);


procedure SetSystemMenu(value:TPopupMenu);


Properties


property About : TAboutProperty


property SystemMenu : TPopupMenu


Events


Variables


aOwnerHandle : Integer;


CountSub : Byte;


FAbout : TAboutProperty;


FNewTFormMDIClientWndProcInstance : Pointer;


FNewTFormWndProcInstance : Pointer;


FOldTFormMDIClientWndProc : Pointer;


FOldTFormWndProc : Pointer;


FSystemMenu : TPopupMenu;


FTPUHandle : THandle;


SubCommand : array[1..20] of Integer;