Take the 2-minute tour ×  I am struggling greatly trying to get
hints displayed in a TActionMainMenuBar. Delphi XE2.  I am
creating the menus at runtime. I add categories, subitems, clear
the menu out, that all works great. Clicking on the menu item
works properly (for now it just does a ShowMessage with the
action item tag but that's fine).  This is the code that adds a
new menu item :  function TActionF.NewAction(AParent:
TActionClientItem; Caption: String; aTag : integer;
ExecuteAction: TNotifyEvent):TActionClientItem;
newActionClient : TActionClientItem;   AnewAction : TAction;
newActionClient :=
TActionClientItem(AParent.Items.insert(AParent.Items.Count));
newActionClient.Caption := Caption; //??
newActionClient.UsageCount := -1; // turn of menu priority stuff
for now   AnewAction := TAction.Create(Self);   AnewAction.Tag
:= aTag;   AnewAction.ImageIndex := -1;   AnewAction.Caption :=
Caption;   AnewAction.Hint := Caption + 'Action Tag = ' +
IntToStr(aTag);   AnewAction.OnHint := acnDoHint;  // f