100分,scrollbox控件里面有个image,鼠标点击image时,得到scrollbox的鼠标座标.(100分)

我做个小程序,,一个图片放在scrollbox中...在图片上单击,就可以在鼠标当前位置,画个小图标,当scrollbox没有滚动条没移动的时候,可以实现...但是一但移动了了移动条(因为图片比较大,有移动条),你在单击的时候,,画的小图标就跑到鼠标下面去了..如果用scrollbox的座标座标,就不会跑到下面,但是image在scrollbox里面.单击只能得到image的座标..自己研究了二个多小时,实在不想想了,,,来拜托大家了....

先取得当前鼠标的屏幕坐标，然后再转换成scrollbox的坐标也许能行。那几个函数我忘了，我的东西也不在这，你自己找找看。我以前做过类似的也是这样弄的。

呵呵，自己算一下就行了啊

procedure tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
label1.Caption :='A';
LABEL1.Left :=X+image1.Left ;
LABEL1.Top :=y+image1.Top ;
end;