TMenuItem

type TMenuItem = class(TLCLComponent)

protected

  FCommand: Word;

  class procedure WSRegisterClass; override;

  procedure ActionChange(); virtual;

  procedure AssignTo(); override;

  procedure BitmapChange();

  function DoDrawItem(); virtual;

  function DoMeasureItem(); virtual;

  function GetAction;

  function GetActionLinkClass; virtual;

  function GetHandle;

  procedure DoClicked(); message;

  procedure CheckChildrenHandles;

  procedure CreateHandle; virtual;

  procedure DestroyHandle; virtual;

  procedure Loaded; override;

  procedure Notification(); override;

  procedure GetChildren(); override;

  procedure InitiateActions;

  procedure MenuChanged();

  procedure SetAction();

  procedure SetChildOrder(); override;

  procedure SetGroupIndex();

  procedure SetImageIndex();

  procedure SetParentComponent(); override;

  procedure SetShortCut();

  procedure SetShortCutKey2();

  procedure SetVisible();

  procedure UpdateWSIcon;

  procedure ImageListChange();

  property ActionLink: TMenuActionLink; [rw]

public

  FCompStyle: LongInt;

  constructor Create(); override;

  destructor Destroy; override;

  function Find();

  function GetEnumerator;

  procedure GetImageList();

  function GetParentComponent; override;

  function GetParentMenu; virtual;

  function GetMergedParentMenu; virtual;

  function GetIsRightToLeft; virtual;

  function HandleAllocated;

  function HasIcon; virtual;

  function HasParent; override;

  procedure InitiateAction; virtual;

  procedure IntfDoSelect; virtual;

  function IndexOf();

  function IndexOfCaption(); virtual;

  procedure InvalidateMergedItems;

  function VisibleIndexOf();

  procedure Add();

  procedure AddSeparator;

  procedure Click; virtual;

  procedure Delete();

  procedure HandleNeeded; virtual;

  procedure Insert();

  procedure RecreateHandle; virtual;

  procedure Remove();

  procedure UpdateImage();

  procedure UpdateImages();

  function IsCheckItem; virtual;

  function IsLine;

  function IsInMenuBar; virtual;

  procedure Clear;

  function HasBitmap;

  function GetIconSize(); virtual;

  procedure RemoveAllHandlersOfObject(); override;

  procedure AddHandlerOnDestroy();

  procedure RemoveHandlerOnDestroy();

  procedure AddHandler();

  procedure RemoveHandler();

  property Merged: TMenuItem; [r]

  property MergedWith: TMenuItem; [r]

  property Count: Integer; [r]

  property Handle: HMENU; [rw]

  property Items []: TMenuItem; default; [r]

  property MergedItems: TMergedMenuItems; [r]

  property MenuIndex: Integer; [rw]

  property Menu: TMenu; [r]

  property Parent: TMenuItem; [r]

  property MergedParent: TMenuItem; [r]

  property Command: Word; [r]

  function MenuVisibleIndex;

  procedure WriteDebugReport();

published

  property Action: TBasicAction; [rw]

  property AutoCheck: Boolean; [rw]

  property Caption: string; [rws]

  property Checked: Boolean; [rws]

  property Default: Boolean; [rw]

  property Enabled: Boolean; [rws]

  property Bitmap: TBitmap; [rws]

  property GroupIndex: Byte; [rw]

  property GlyphShowMode: TGlyphShowMode; [rw]

  property HelpContext: THelpContext; [rws]

  property Hint: string; [rws]

  property ImageIndex: Integer; [rws]

  property RadioItem: Boolean; [rw]

  property RightJustify: Boolean; [rw]

  property ShortCut: TShortCut; [rws]

  property ShortCutKey2: TShortCut; [rw]

  property ShowAlwaysCheckable: Boolean; [rw]

  property SubMenuImages: TCustomImageList; [rw]

  property SubMenuImagesWidth: Integer; [rw]

  property Visible: Boolean; [rws]

  property OnClick: TNotifyEvent; [rw]

  property OnDrawItem: TMenuDrawItemEvent; [rw]

  property OnMeasureItem: TMenuMeasureItemEvent; [rw]

end;

TMenuItem

TLCLComponent

TObject