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

Question

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

Answer 1

查看this answer的第二部分，该部分使用鼠标滚轮来放大和缩小TImage。

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