| Class TSystemMenuItem (unit AdvMenus) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Add(AItem: TSystemMenuItem; Position: Word);
destructor Destroy;
procedure Remove(AItem: TSystemMenuItem);
procedure Click(Sender: TObject);
function GetCount: Integer;
function GetHandle: HMENU;
function GetItem(Index: Integer): TSystemMenuItem;
function GetItemFromHandle(Menu: HMenu): TSystemMenuItem;
function AppendTo(Menu: HMENU; Position: Word): Boolean;
function HandleExists(Menu: HMENU): Boolean;
function ItemExists(AItem: TSystemMenuItem): Boolean;
procedure RedrawItem;
procedure SetBreak(Value: TMenuBreak);
procedure SetCaption(Value: string);
procedure SetChecked(Value: Boolean);
procedure SetEnabled(Value: Boolean);
procedure SetSubMenu(Value: Boolean);| Properties |
property Break : TMenuBreak
property Caption : string
property Checked : Boolean
property Enabled : Boolean
property IsSubMenu : Boolean
property Count : Integer
property Handle : HMenu
property Items : TSystemMenuItem| Events |
event OnClick : TNotifyEvent| Variables |
FAdded : Boolean;
FBreak : TMenuBreak;
FCaption : string;
FChecked : Boolean;
FEnabled : Boolean;
FHandle : HMENU;
FItems : TList;
FOnClick : TNotifyEvent;
FParentHandle : HMENU;
FPopUp : Boolean;
FPosInParent : Integer;| Constructors |
constructor Create(AOwner: TComponent);TSystemMenuItem
| Functions |
procedure Add(AItem: TSystemMenuItem; Position: Word);
destructor Destroy;
procedure Remove(AItem: TSystemMenuItem);
procedure Click(Sender: TObject);
function GetCount: Integer;
function GetHandle: HMENU;
function GetItem(Index: Integer): TSystemMenuItem;
function GetItemFromHandle(Menu: HMenu): TSystemMenuItem;
function AppendTo(Menu: HMENU; Position: Word): Boolean;
function HandleExists(Menu: HMENU): Boolean;
function ItemExists(AItem: TSystemMenuItem): Boolean;
procedure RedrawItem;
procedure SetBreak(Value: TMenuBreak);
procedure SetCaption(Value: string);
procedure SetChecked(Value: Boolean);
procedure SetEnabled(Value: Boolean);
procedure SetSubMenu(Value: Boolean);| Properties |
property Break : TMenuBreak
property Caption : string
property Checked : Boolean
property Enabled : Boolean
property IsSubMenu : Boolean
property Count : Integer
property Handle : HMenu
property Items : TSystemMenuItem| Events |
event OnClick : TNotifyEvent| Variables |
FAdded : Boolean;
FBreak : TMenuBreak;
FCaption : string;
FChecked : Boolean;
FEnabled : Boolean;
FHandle : HMENU;
FItems : TList;
FOnClick : TNotifyEvent;
FParentHandle : HMENU;
FPopUp : Boolean;
FPosInParent : Integer;