Delphi : Timage:等待图像显示

Question

在我的程序中，表单上有一个组件。

程序必须测试：

如果加载的图像显示在屏幕上。这个图像的大小有时可以轻松地超过2个月。

要测试镜像是否已加载，请执行以下操作：

if Not (Image1.Picture.Graphic.Empty) then

..。但当涉及到大图像时，它需要几秒钟才能出现。

我想等待图像的显示，然后对此图像进行处理。

如何等待图像显示在屏幕上？

提前谢谢你

Answer 1

您可以为TImage.OnProgress编写一个eventhandler

TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: boolean; const R: TRect; const Msg: string) of object;

检查Stage = psEnding