如何在delphi中获得拉伸图像的新尺寸

在DelphiXe7中，我有一个属性为Image.Strech:=True的控件映像

从磁盘加载图像时，它会在TImage控件内自动调整大小。如何获得调整大小的图像的大小，或者如何获得显示位图的副本（不是Timage的原始图片部分）

---

谢谢

拉伸的尺寸与TImage的尺寸相同，因此应该是TImage.Height和TImage.Width。没有显示位图的副本；它是原始位图的拉伸图形。如果需要副本，请创建一个新位图，并使用TBitmap.Canvas.StretchDraw或WinAPI函数StretchDIBits从原始位图绘制拉伸图像。@KenWhite是正确的。但是如果

TImage.Proportional

为真，则还需要补偿纵横比（基本上是

if

语句加乘法的简单情况）。