怎么样编程实现自动移动鼠标指针啊

Question

请教了
怎么样在delphi里面编程实现自动移动鼠标指针到特定位置啊
因为要做一个软件的自动演示版本的说
先谢了

Answer 1

SetCursorPos(x,y);
可以将鼠标移动到指定的点（x,y），其中x,y是屏幕坐标位置
所以SetCursorPos(0,0);会将鼠标移动到屏幕的左上角，而不是窗体的左上角
例子，将鼠标移动到窗体中Button1的左上角：
var
 myCPnt,mySpnt:TPoint; //窗体坐标，屏幕坐标
begin
 myCPnt.X:=Button1.Left; //取Button1左上角的窗体坐标
 myCpnt.Y:=Button1.Top;
 mySPnt:=ClientToScreen(myCPnt); //将窗体坐标变换为屏幕坐标
 SetCursorPos(mySpnt.X,mySpnt.Y); //设定鼠标位置
end;