Api 函数: GetCursorPos 与转换

//获取鼠标在窗体中的当前位置
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
varstr: string;
beginstr := Format('%d,%d',[X,Y]);ShowMessage(str);
end;//用 GetCursorPos 获取的是鼠标相对与屏幕的位置
varps: TPoint;str: string;
beginGetCursorPos(ps);str := Format('%d,%d',[ps.X,ps.Y]);ShowMessage(str);
end;//但通过 ScreenToClient 方法可以转换过来
varps: TPoint;str: string;
beginGetCursorPos(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);
varstr: 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;