//獲取滑鼠在窗體中的當前位置
procedure tform1.formmousedown(sender: tobject; button:
tmousebutton;
shift: tshiftstate; x, y: integer);
varstr: 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);
varstr: string;
ps: tpoint;
begin
str := format('%d,%d',[x,y]);
showmessage(str);
ps := point(x,y);
ps := clienttoscreen(ps);
str := format('%d,%d',[ps.x, ps.y]);
showmessage(str);
end;
getcursorpos:得到滑鼠當前位置
screentoclient：將螢幕座標轉換為使用者區域座標
clienttoscreen：將使用者區域座標轉化為螢幕座標
單個點座標座標轉換
需要js版本可以移步coordtransform lng 128.543 lat 37.065 result3 wgs84 to gcj02 lng,lat wgs84座標系 火星座標系 result4 gcj02 to wgs84 lng,lat 火星座標系 wgs84座標系 中文位址到火星座標系...
座標系轉換
根據halcon的演算法，設座標系1 影象 的點 px,py 座標系2 世界 的點為 qx,qy 則 qx px qy hommat2d py 1 1 其中 hommat2d為乙個3乘3的矩陣，且第三行為 0，0，1 1 0 tx cos phi sin phi 0 1 sin theta 0 sx...
iOS座標轉換
座標系的作用是為了便於描述點的位置。話說mac,ios中的各種座標系總會讓初學者摸不著頭腦，一會兒這樣一會兒那樣。不過有一點是不變的，z軸的正方向總是指向觀察者，也就是垂直螢幕平面向上。1.nsview座標系 在mac中nsview的座標系預設是右手座標系 view其實是二維座標系，但是為了方便我們...