L lwgygz Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #1 请问用GetCursorPos(P)得到当前鼠标的坐标P.x,P.y但是如何将这一坐标转换到某一控件 上。如在Image上？
Q qianwt Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #2 P := Image.ScreenToClient(P);
W wr960204 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #3 ScreenToClient//屏幕到控件 ClientToScreen//控件到屏幕
C cb_hfxy Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #4 不是很解你的意思，是不是 你想知道鼠标在控件上的坐标啊。 x:=p.x-image.left; y:=p.y-image.top;
L lwgygz Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #5 我的意思是在Image上的双击事件中没有鼠标的当前坐标，只能用GetCursorPos获取当前鼠标 的坐标，但是如何将该坐标转换为Image上的相对坐标，并在Image上画图形？
T tjj Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #6 如果在窗体上有frame的话，请加上当前frame的frame.left,frame.top 才能得到正确的屏幕坐标
火 火龙真人 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #7 IMAGE的mouseMOVE里有，用两个变量在里面记录鼠标的坐标， 然后在 在IMAGE的双激里取这两个变量的值。 取出来直接就是IMAGE的相对坐标不用转换 此坐标是以IMAGE的左上角为原点。
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-04 #8 procedure TForm1.Image1DblClick(Sender: TObject); var p:tpoint; begin GetCursorPos(p); p:=image1.ScreenToClient(p); showmessage(format('x=%d y=%d',[p.x,p.y])); end;
procedure TForm1.Image1DblClick(Sender: TObject); var p:tpoint; begin GetCursorPos(p); p:=image1.ScreenToClient(p); showmessage(format('x=%d y=%d',[p.x,p.y])); end;
