我的程序中有一个表单组件。
程序必须测试:
是否在屏幕上显示加载的图像。这个图像的大小有时可能超过2兆字节。
要测试图像是否已加载:
if Not (Image1.Picture.Graphic.Empty) then
但是当涉及到大的图片时,需要几秒钟才能显示出来。
我想要等待图像显示后再对该图像进行处理。
请问如何等待图像在屏幕上显示呢?
非常感谢。
我的程序中有一个表单组件。
程序必须测试:
是否在屏幕上显示加载的图像。这个图像的大小有时可能超过2兆字节。
要测试图像是否已加载:
if Not (Image1.Picture.Graphic.Empty) then
您可以为TImage.OnProgress编写事件处理程序。
TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: boolean; const R: TRect; const Msg: string) of object;
检查阶段是否为psEnding