Class TSystemMenuItem (unit AdvMenus)

Inherits from

TComponent

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;



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;