如何在 Delphi XE2 试用版中缩放 TImage 控件中加载的图像？

Question

我开发了一个小工具，可以在 Delphi XE2 的TImage 控件中加载不同类型的图像文件。现在我想实现和测试缩放功能，仅使用内置控件（即不使用任何第 3 方组件）。

Answer 1

参见this answer 的第二部分，它使用鼠标滚轮放大和缩小 TImage。

注意：它会重新定位图像组件。