在TImageViewer中，如何获取用户单击图片的位置？

在TImageViewer控件中，用户可以缩放或平移图片

我的问题是，当用户点击图片时，如何获得用户在图片上的点击位置？特别是用户可以放大、缩小或平移图片后，如何获得相应的图片点击位置

如下图所示： 如何知道用户是否点击了电池位置

演示项目：

---

我没有测试，但它应该可以工作：

procedure TfmMain.ivImageViewerMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
    DX, DY: Single;
    ImageX, ImageY: Single;
begin
    if ivImageViewer.Bitmap.Width * ScalePicture >= ivImageViewer.Width then
        DX = ivImageViewer.ViewportPosition.X
    else
        DX := (ivImageViewer.Bitmap.Width * ScalePicture - ivImageViewer.Width)/2;
    ImageX := (X + DX) / ScalePicture;

    if ivImageViewer.Bitmap.Height * ScalePicture >= ivImageViewer.Height then
        DY = ivImageViewer.ViewportPosition.Y
    else
        DY := (ivImageViewer.Bitmap.Height * ScalePicture - ivImageViewer.Height)/2;
    ImageY := (Y + DY) / ScalePicture;
end;

---

ImageX

和

ImageY

是相对于原始（未缩放）图像的坐标。

如何进行缩放？您是否更改了

BitmapScale

属性？@Olivier，我的代码基于此演示：@MartynA，MousePos返回屏幕坐标，而不是我想要的图像位置。这似乎不起作用，计算结果是视点的位置。我上传了上面的代码。显示

X

、

ivImageViewer.ViewportPosition.X

、

ScalePicture

和

ImageX

的值。我做不到，我这里没有Delphi。我没看到你把可执行文件包括在档案中。我试过了，当图像没有占据整个TImageViewer控件时，确实存在一个问题。但是如果你放大的足够大，它就可以工作了。例如，当我点击M1的中心时，我总是四处走动（329，68）。@Leo我用一个新版本编辑了答案。你能测试一下吗？太好了！完美的解决方案！非常感谢你！