事件触发：将鼠标移动到批定的座标，并双击（高手提得一个问题）

Question

var
  x,y : integer;
begin
  x := 100;
  y ;= 100;
  SetCursorPos(x,y);
  sendmessage(handle,WM_LBUTTONDBLCLK,0,0);
end;

Answer 1

rickle(平静的海岸线)　与FoxSky(天狐)老兄，能详细一点吗？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCursorPos(Button2.Left+Left+25,Button2.Top+Top+35);
  sendmessage(Button2.Handle,WM_LBUTTONDown,0,0);
end;procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  showmessage('mouse down');
end;

Answer 3

sendmessage(Button2.Handle,WM_LBUTTONDown,0,0);
这条命令只是按下了鼠标左键，没有弹出来。

Answer 4

 mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );//触发鼠标
 mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
 mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
 mouse_event( MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );
我成功了。自己解决了。