FireMonkey中TImageViewer缩放跳转至中心的问题解决方法

方法一：修改组件默认属性 #

TImageViewer的Center属性默认值为True，这是导致缩放后自动将图像居中、滚动条复位的核心原因。将该属性设为False即可阻止这一默认行为：

操作方式 #

• 设计时设置：在Object Inspector中找到img_Imageviewer的Center属性，将其改为False。
• 代码中设置：在加载图像后添加一行代码，修改后的按钮点击事件如下：

procedure TForm1.btn_LoadImageClick(Sender: TObject);
begin
  if dlgOpen1.Execute then
  begin
    img_Imageviewer.Bitmap.LoadFromFile(dlgOpen1.FileName);
    img_Imageviewer.Center := False; // 禁用自动居中逻辑
    lbl_statusbar.Text := 'image loading done!';
  end;
end;

方法二：自定义基于鼠标位置的缩放逻辑（进阶优化） #

如果需要实现更符合直觉的缩放体验——以鼠标指向的图像区域为中心放大/缩小，可以通过处理鼠标滚轮事件手动控制缩放行为：

1. 在窗体类的私有声明中添加变量，记录缩放前的滚动位置：

private
  FPrevScrollPos: TPointF;

2. 为img_Imageviewer绑定OnMouseWheel事件，并添加以下处理代码：

procedure TForm1.img_ImageviewerMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
var
  ZoomFactor: Single;
  MousePosInImage: TPointF;
  NewScrollPos: TPointF;
begin
  Handled := True;
  // 计算缩放因子：滚轮每滚动一格（WheelDelta=±120）对应10%的缩放幅度
  ZoomFactor := 1.0 + (WheelDelta / 1200);
  // 限制缩放范围（可根据需求调整上下限）
  if (img_Imageviewer.Zoom * ZoomFactor) < 0.1 then Exit;
  if (img_Imageviewer.Zoom * ZoomFactor) > 10 then Exit;

  // 将鼠标屏幕坐标转换为图像内部的原始坐标
  MousePosInImage := img_Imageviewer.ScreenToLocal(Mouse.CursorPos);
  MousePosInImage := img_Imageviewer.ViewportToImage(MousePosInImage);

  // 记录当前滚动位置
  FPrevScrollPos := TPointF.Create(img_Imageviewer.ScrollBox.HorizontalScroll.Position, 
                                   img_Imageviewer.ScrollBox.VerticalScroll.Position);

  // 以鼠标指向点为中心执行缩放
  img_Imageviewer.Zoom(ZoomFactor, MousePosInImage);

  // 计算并更新滚动位置，确保鼠标指向的图像区域保持在视口中
  NewScrollPos.X := FPrevScrollPos.X * ZoomFactor + (MousePosInImage.X * (1 - ZoomFactor)) * img_Imageviewer.Bitmap.Width / img_Imageviewer.Width;
  NewScrollPos.Y := FPrevScrollPos.Y * ZoomFactor + (MousePosInImage.Y * (1 - ZoomFactor)) * img_Imageviewer.Bitmap.Height / img_Imageviewer.Height;

  img_Imageviewer.ScrollBox.HorizontalScroll.Position := NewScrollPos.X;
  img_Imageviewer.ScrollBox.VerticalScroll.Position := NewScrollPos.Y;
end;

这种方式既解决了缩放后跳回中心的问题，又能让缩放操作更贴合用户预期。

内容的提问来源于stack exchange，提问作者Franz