procedure TForm1.Button1Click(Sender: TObject);
var
? oldPoint, newPoint: TPOINT;
begin
? GetCursorPos(oldPoint); //保存當(dāng)前鼠標(biāo)位置。
? newPoint.x := oldPoint.x + 400;
? newPoint.y := oldPoint.y + 100;
? SetCursorPos(newPoint.x, newPoint.y); //設(shè)置目的地位置。
? Sleep(1000 * 3);
//? mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //模擬按下鼠標(biāo)右鍵。
//? mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); //模擬放開鼠標(biāo)右鍵。
//? mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //模擬按下鼠標(biāo)左鍵。
//? mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //模擬放開鼠標(biāo)左鍵。
//? keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0, 0); //按下SHIFT鍵。
//? keybd_event(0x52, MapVirtualKey(0 x52, 0), 0, 0); //按下R鍵。
//? keybd_event(0x52, MapVirtualKey(0 x52, 0), KEYEVENTF_KEYUP, 0); //放開R鍵。
//? keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0); //放開SHIFT鍵。
? SetCursorPos(oldPoint.x, oldPoint.y);

end;

--=================================================================================================================

//獲取鼠標(biāo)在窗體中的當(dāng)前位置
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
str: string;
begin
str := Format('%d,%d',[X,Y]);
ShowMessage(str);
end;


//用 GetCursorPos 獲取的是鼠標(biāo)相對(duì)與屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;


//但通過 ScreenToClient 方法可以轉(zhuǎn)換過來
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);

ps := ScreenToClient(ps);

str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;


// ClientToScreen 函數(shù)
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
str: string;
ps: TPoint;
begin
{顯示當(dāng)前鼠標(biāo)位置, 這是相對(duì)于窗體的}
str := Format('%d,%d',[X,Y]);
ShowMessage(str);

{通過 ClientToScreen 函數(shù)可以得到當(dāng)前鼠標(biāo)相對(duì)于屏幕的位置}
ps := point(X,Y);

ps := ClientToScreen(ps);
str := Format('%d,%d',[ps.X, ps.Y]);
ShowMessage(str);
end;

總結(jié)

以上是生活随笔為你收集整理的Delphi 鼠标移动的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。