我还有个问题想请教一下,在DELPHI里,怎么实现模拟鼠标的动作,比如:在哪个坐标点击一下,或者点右键等等。
解决方案 »
- CXGRID历遍与多选删除请求.
- 一事不明,请教!(dll调用另一个dll的问题)
- 有遇到新问题了,就又来求助大家了!!!!
- *****请问在各位大侠,有关转向游戏开发的问题。*****
- 求助!安装完FastReport 2.5以后为何报表中没有自定义了
- Delphi 5 程序员开发指南 中有关于回调函数的描述吗?哪里可以找到?
- 谁用过ExpressQuantumGrid For Delphi6
- 请大家推荐一款制作自解压安装程序的软件吧!
- 我是琳琳,刚才提问有关音量问题的人。如果用一个TrackBar控制左右音道如何解决?
- 吾明天去买DELPHI资料书,请各位推荐几本好书!谢了!
- 用mysql的朋友近来帮帮忙,关于出错。
- 大家好!我刚学DELPHI,问一个很菜得问题,关于MIDI窗体的事!
鼠标自动点击的例子
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('fksj');
end;