tmenuitem

type tmenuitem = class(teventpersistent, iactionlink, imenuitem, iimagelistinfo, iassistiveclientmenu)

public

  constructor create();

  destructor destroy; override;

  procedure assign(); override;

  procedure beginload;

  procedure endload;

  procedure doupdate;

  procedure updatehotkeys;

  procedure doshortcut();

  function count;

  function hasvisibleitem;

  function parentmenu;

  function actualcolor;

  function actualcoloractive;

  function actualcolorglyph;

  function actualcolorglyphactive;

  property owner: tcustommenu; [r]

  function execute;

  function asyncexecute;

  function canactivate;

  function canshow;

  procedure createfont;

  procedure createfontactive;

  property onchange: menuitemeventty; [rw]

  property items []: tmenuitem; default; [rw]

  function itembyname();

  function itembynames();

  procedure deleteitembynames();

  function index;

  property checkedtag: Integer; [rw]

  property checked: Boolean; [rw]

  property enabled: Boolean; [rw]

  property visible: Boolean; [rw]

  property tagpo: pointer; [rw]

  property tagpointer: pointer; [rw] deprecated ;

  property shortcuts: shortcutarty; [rw]

  property shortcuts1: shortcutarty; [rw]

published

  property action: tcustomaction; [rw]

  property submenu: tmenuitems; [rw]

  property caption: captionty; [rws]

  property hint: msestring; [rws]

  property name: string; [rw]

  property state: actionstatesty; [rws]

  property options: menuactionoptionsty; [rw]

  property shortcut: shortcutty; [rws]

  property shortcut1: shortcutty; [rws]

  property tag: Integer; [rws]

  property group: Integer; [rws]

  property imagelist: timagelist; [rws]

  property imagenr: imagenrty; [rws]

  property imagenrdisabled: imagenrty; [rws]

  property color: colorty; [rws]

  property coloractive: colorty; [rw]

  property colorglyph: colorty; [rws]

  property colorglyphactive: colorty; [rw]

  property font: tmenufont; [rws]

  property fontactive: tmenufontactive; [rws]

  property onexecute: notifyeventty; [rws]

  property onbeforeexecute: accepteventty; [rws]

  property onafterexecute: notifyeventty; [rws]

end;

tmenuitem,iactionlink,imenuitem,iimagelistinfo,iassistiveclientmenu

teventpersistent,ievent

tlinkedpersistent,iobjectlink

tnullinterfacedpersistent,iunknown

tvirtualpersistent

tpersistent

TObject