delphi 獲取鼠標當前位置的相對座標

//方法一: 使用 OnMouseDown 事件的參數:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//參數中的 X,Y 就是當前鼠標所在位置的座標
//譬如顯示看看:
Text := Format('OnMouseDown: x=%d; y=%d', [X,Y]);
end;

//方法二: 使用 OnMouseMove 事件的參數:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//參數中的 X,Y 就是當前鼠標所在位置的座標
//譬如顯示看看:
Text := Format('OnMouseMove: x=%d; y=%d', [X,Y]);
end;

//方法三: 使用 OnMouseUp 事件的參數:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//參數中的 X,Y 就是當前鼠標所在位置的座標
//譬如顯示看看:
ShowMessage(Format('OnMouseUp: x=%d; y=%d', [X,Y]));
end;

//方法四: 使用 API 函數 GetCursorPos:
procedure TForm1.FormClick(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt);         {這是獲取的相對於屏幕的座標}
pt := ScreenToClient(pt); {轉換成本地座標}
ShowMessage(Format('API 函數 GetCursorPos: x=%d; y=%d', [pt.X, pt.Y]));
end;