如何设置鼠标的位置

Question

想实现的效果是这样的， 有两个Bttuon, Button1, Button2 当点击Button1时，鼠标自动移动到Button2上！

Answer 1

不行的，需求有变Button1和Button2不在同一个窗体，Button1在Form1,Button2在Form2，想实现点击Button1时,显示出的Form2中的Button2获得鼠标

Answer 2

或者自己模拟一个鼠标移动地过程
sendmessage（hwnd,WM_MOUSEMOVE.....）

Answer 3

需求有變，你就不會變通一下？
form2 create時，取得button2的left + XX，Top + XX，再設定pos不就可以了....

Answer 4

半路杀出个新需求...............诶
那你在点击button1的时候把form2窗体提前，然后让button2获得焦点不就是了。

Answer 5

点击button1的时候把form2窗体提前，然后让button2获得焦点

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var p:TPoint;
begin
  p:=ClientToScreen(point(button2.Left+button2.Width div 2,button2.Top+button2.Height div 2));
  SetCursorPos(p.X,p.Y)
end;