DELPHI 如何控制鼠标移动到某一坐标?

Question

Mouse.CursorPos := Point(0, 0);

Answer 1

WM_LBUTTONDOWN
WM_LBUTTONUP
WM_RBUTTONDOWN
WM_RBUTTONUP
GetDC
GetPixel

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  SDC: HDC;
  SColor: COLORREF;
begin
  //鼠标移动到坐标X:20 Y:30初
  Mouse.CursorPos := Point(20, 30);  //获取屏幕坐标X:20 Y:30初的颜色
  SDC := GetDC(0);
  SColor := GetPixel(SDC, 20, 30);
  ReleaseDC(0, SDC);  //把取到的颜色画在屏幕上
  Canvas.Brush.Color := SColor;
  Canvas.FillRect(Rect(0, 0, 50, 50));
end;

Answer 3

FPoint := Point(X, Y);
SetCursorPos(X, Y);
SetCapture(WindowFromPoint(FPoint));