怎么模拟点击某一个菜单项 ( 积分: 100 )

shawy · 2005-05-13

有一个右键菜单，已经取得句柄，我想在程序中控制点击其第12个菜单项子菜单中的第一个菜单项，请问应该如何实现？谢谢

shawy · 2005-05-13

有一个右键菜单，已经取得句柄，我想在程序中控制点击其第12个菜单项子菜单中的第一个菜单项，请问应该如何实现？谢谢

xianguo · 2005-05-13

MainMenu1.Items[11].Items[0].Click;

shawy · 2005-05-13

不是vcl控件，是HMENU类型的菜单 只能用API控制的

xianguo · 2005-05-13

SendMessage

Toysun · 2005-05-13

WM_COMMAND SendMessage();

shawy · 2005-05-13

我也知道是用sendmessage 不过sendmessage(PopMenuHandle,WM_COMMAND,11,0)怎么没有反应呢

xianguo · 2005-05-13

procedure TForm1.Button2Click(Sender: TObject); Var  wh, mh : thandle;  id : word; begin  wh := findwindow(nil, '计算器');  if wh<> 0 then  begin    mh := GetMenu(wh);    mh := GetSubMenu(mh, 2); //取得帮助菜单句柄    id := GetMenuitemID(mh, 2); //取得关于菜单的ID    SendMessage(wh, WM_COMMAND, MAKEWPARAM(id, 0),0);  end; end;

huangyueang · 2005-05-13

还有个问题，Frame用什么方法可以实现和Form的Create事件一样的功能？？由于今天刚注册不能发帖，只有找置顶的帖来问了，谢谢，帮帮我！！

xianguo · 2005-05-13

procedure TForm1.Button1Click(Sender: TObject); Var  miHandle : Word; begin  miHandle := GetMenuitemID(GetSubMenu(GetMenu(Handle), 11), 0); //MainMenu1.Items[11].Items[0]  PostMessage(Handle, WM_COMMAND, MAKEWPARAM(miHandle, 0), 0); end;

shawy · 2005-05-13

接受答案了 谢谢各位

怎么模拟点击某一个菜单项 ( 积分: 100 )

shawy

Unregistered / Unconfirmed

shawy

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

shawy

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

Toysun

Unregistered / Unconfirmed

shawy

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

huangyueang

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

shawy

Unregistered / Unconfirmed

Similar threads