Delphi：Timage：等待显示图像

Question

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

该程序必须测试：

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

测试图像是否已加载：

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

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

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

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

提前谢谢

Answer 1

您可以为TImage.OnProgress编写一个事件处理程序

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

检查Stage = psEnding