如何实现鼠标左键单击？

Question

这个问题对我来说一点没有头绪，但对您来说肯定很简单，想实现程序运行，会在某点实现左键单击，谢谢解答。

Answer 1

通过搜索得到一下代码：
SetCursorPos(10,10);
　mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
　mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
但在编译时第二行有错误

Answer 2

是这个吗？单击事件 OnClick
procedure TForm1.FormClick(Sender: TObject);
begin
  ShowMessage('OK');
end;

Answer 3

两种方法
1.mouse_event:
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
2.SendMessage要先取得button的handle:
      SendMessage(hButton,WM_LBUTTONDOWN,0,0);
      Sleep(10);
      SendMessage(hButton,WM_LBUTTONUP,0,0);

Answer 4

procedure TForm1.FormClick(Sender: TObject);//窗体 鼠标单击事件
var
  tmpPos:TPoint;
  X,Y:Integer;
begin
  GetCursorPos(tmpPos);
  X:=tmpPos.X;
  ShowMessage(IntToStr(x));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetCursorPos(260,200);//点击按钮后，鼠标移动到某点
  Form1.OnClick(Self);//触发鼠标单击左键事件
end;

Answer 5

谢谢楼上的各位，我也查出原因了，就是sichouzhilu说的情况，结贴。