怎么在TPaintBox的onclick中获取鼠标在PaintBox中的坐标？
procedure TMainForm.RKPaintBoxClick(Sender: TObject);
var
P,PT:TPoint;
begin
GetCursorPos(PT); //获取相对于屏幕的坐标。
PT := ScreenToClient(PT); //转化为本地坐标
P.X:= PT.X+ RKPaintBox.Left; //转化为RKPaintBox中的坐标
P.Y:= PT.Y+ RKPaintBox.Top;
end;
//以上代码看样子正确，可实际上不正确啊、。像MouseMove时间中就有现成的 坐标参数了。。请问大侠们怎么获取啊。。谢谢
[解决办法]
OnClick事件产生后，同时也会产生OnMouseUp事件，在OnMouseUp中取坐标吧
[解决办法]
RKPaintBox.ScreenToClient(PT); 试下
