|
DELPHI 如何控制鼠标移动到某一坐标?
如何控制鼠标左右键,如何取鼠标当前坐标的颜色.? 请教!! 求一师傅 QQ:5941880 |
|
#1 得分:0回复于: 2008-05-09 17:05:53
Mouse.CursorPos := Point(0, 0);
|
|
|
#2 得分:20回复于: 2008-05-09 20:37:40
WM_LBUTTONDOWN
WM_LBUTTONUP WM_RBUTTONDOWN WM_RBUTTONUP GetDC GetPixel |
|
|
#3 得分:0回复于: 2008-05-09 23:13:25
好人们.能不能说详细一点,如果可能的话.给个实例.我很菜..
如果愿意收徒弟的.留个QQ号 |
|
|
#4 得分:0回复于: 2008-05-09 23:47:35
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; |
|
|
#5 得分:0回复于: 2008-05-10 08:23:19
FPoint := Point(X, Y);
SetCursorPos(X, Y); SetCapture(WindowFromPoint(FPoint)); |
delphi lazarus opengl
网页操作自动化, 图像分析破解,游戏开发

