procedure TForm1.Button1Click(Sender: TObject);
var
? oldPoint, newPoint: TPOINT;
begin
? GetCursorPos(oldPoint); //保存當前鼠標位置。
? newPoint.x := oldPoint.x + 400;
? newPoint.y := oldPoint.y + 100;
? SetCursorPos(newPoint.x, newPoint.y); //設置目的地位置。
? Sleep(1000 * 3);
//? mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //模擬按下鼠標右鍵。
//? mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); //模擬放開鼠標右鍵。
//? mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //模擬按下鼠標左鍵。
//? mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //模擬放開鼠標左鍵。
//? 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;

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

//獲取鼠標在窗體中的當前位置
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 獲取的是鼠標相對與屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;


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

ps := ScreenToClient(ps);

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


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

{通過 ClientToScreen 函數可以得到當前鼠標相對于屏幕的位置}
ps := point(X,Y);

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

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。