如何在image上取得相对座标(30分)

B

bobiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-18

• #1

用鼠标左击image，如何取得相对座标？

 

歪

歪就歪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-18

• #2

procedure TForm1.Image1Click(Sender: TObject);
var p, pc : TPoint;
begin
GetCursorPos(p);
pc := Image1.ScreenToClient(p);
showmessage(IntToStr(pc.x)+' '+IntToStr(pc.y));
end;

 

J

Jetideas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-18

• #3

OnMouseDown事件有当前鼠标X,Y参数的

 

B

bobiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-20

• #4

多人接受答案了。