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

Question

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

Answer 1

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

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