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

[ncliang]

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

如何控制鼠标左右键,如何取鼠标当前坐标的颜色.?

请教!! 求一师傅 QQ:5941880

[zwjchina]

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

[珍惜生命远离CPP]

WM_LBUTTONDOWN
WM_LBUTTONUP
WM_RBUTTONDOWN
WM_RBUTTONUP
GetDC
GetPixel

[ncliang]

好人们.能不能说详细一点,如果可能的话.给个实例.我很菜..

如果愿意收徒弟的.留个QQ号

[zwjchina]

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;

[喝口水]

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

[ncliang]

又怎么控制鼠标按键呢?
比如说我要对比某一坐标的颜色是否为红色,该怎么做?