Question

Delphi的TMainMenu如何展开指定的子菜单？

例如已知某个Item1: TMenuItem
然后要求在某个方法中（如Button1Click）将它展开（或者将它所在的上层菜单展开）

Answer 1

BOOL TrackPopupMenu(
HMENU hMenu, // handle to shortcut menu
UINT uFlags, // screen-position and mouse-button flags
int x, // horizontal position, in screen coordinates
int y, // vertical position, in screen coordinates
int nReserved, // reserved, must be zero
HWND hWnd, // handle to owner window
CONST RECT *prcRect // ignored
);
procedure TForm1.Button1Click(Sender: TObject);
var
X,Y:integer;
P:Tpoint;
begin
p.X:= 0;
p.Y:= 0;
P:= ClientToScreen(P);
TrackPopupMenu(item1.Handle,TPM_LEFTALIGN,P.X,P.Y,0,handle,0);
end;

Answer 2

不是mainmenu吧？popumenu才这样用。

追问

其实是在一个线程里用的，在特定的时间把特定菜单展开并且显示Hint框（后面这步已经解决），起到“帮助”、“向导”这样的功能。

现在是用组合键消息“Alt+字母”暂时解决的，想问问是否有更严谨的处理方式。

Answer 3

visual:=true;