模拟鼠标点击操作

var
  point: TPoint;
begin
  Application.BringToFront;
  Form1.WindowState := wsMaximized;
  Form1.FormStyle := fsStayOnTop;
  // edt1.SetFocus;

  point.x := edt1.left + 3;
  point.y := edt1.Top + 3;
  windows.ClientToScreen(form1.handle, point);
  setcursorpos(point.x, point.y);

  mouse_event(MOUSEEVENTF_LEFTDOWN, point.x,point.y, 0, 0);
  Sleep(10);
  mouse_event(MOUSEEVENTF_LEFTUP, point.x, point.y, 0, 0);
end;