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

Question

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

Answer 1

请参阅此答案的第二部分，该部分使用鼠标滚轮放大和缩小 TImage。

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