能不能用代码让菜单弹出? 能不能用代码让菜单弹出? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var r: TRect; p: TPoint;begin GetMenuItemRect(Handle,MainMenu1.Handle, 0, r); GetCursorPos(p); SetCursorPos(r.Left,r.Top); mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); SetCursorPos(p.X,p.Y);end; 看看这段代码,提示abstract error 错误,请教是什么原因? 急,在线等:如何将取得的Oracle数据库中的最后一条记录赋给变量? 请问怎样把一个应用程序和一个文件夹中的程序都打包进去? 求教关于组件的两个问题! ListView如何实现i行与j行互换位置? 控件问题请教! 请提供好的chm或hlp格式的帮助文件制作工具 事件响应问题? 求救 看看这句SQL这样写有什么毛病?简单的SQL 我从oracle里导出数据到ACCESS, 数据保存重复的问题????
p: TPoint;
begin
GetMenuItemRect(Handle,MainMenu1.Handle, 0, r);
GetCursorPos(p);
SetCursorPos(r.Left,r.Top);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
SetCursorPos(p.X,p.Y);
end;