| Class TSystemMenu (unit SysMenu) |
TComponent
| Constructors |
constructor Create(aOwner:TComponent);| 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;