Delphi中TImage组件如何等待图像显示完成？

在Delphi里处理大图片加载后等待显示完成的问题，核心要区分加载完成和绘制完成——加载是把图片数据读到内存里，而绘制是把内存里的图像渲染到屏幕上，大图片的绘制往往需要额外时间，尤其在主线程里容易被消息循环阻塞。下面给你几个实用的方案：

方案一：利用消息循环等待绘制完成 #

这个方法适合简单场景，原理是加载图片后，让程序处理所有待处理的消息，直到TImage不需要再重绘为止：

procedure TYourForm.LoadAndProcessBigImage(const ImagePath: string);
begin
  // 加载图片到TImage
  Image1.Picture.LoadFromFile(ImagePath);
  
  // 等待图像绘制完成，避免死循环
  while Image1.Picture.Graphic <> nil do
  begin
    // 处理所有待处理的消息，包括绘制消息
    Application.ProcessMessages;
    
    // 检查TImage是否已经完成绘制（NeedPaint属性判断是否需要重绘）
    if not Image1.NeedPaint then
      Break;
      
    // 加个短延时，降低CPU占用
    Sleep(10);
  end;
  
  // 到这里图像已经显示在屏幕上了，开始处理
  YourImageProcessingFunction(Image1.Picture.Graphic);
end;

注意：NeedPaint属性在Delphi XE及以后版本可用，如果是老版本，可以改用检查Image1.UpdateRect是否为空来判断。

方案二：异步加载+主线程绘制（推荐） #

大图片加载本身会阻塞主线程导致UI假死，更优的方式是把加载操作放到后台线程，加载完成后再通知主线程绘制，然后处理：

第一步：创建后台加载线程 #

type
  TImageLoadThread = class(TThread)
  private
    FImagePath: string;
    FLoadedGraphic: TGraphic;
    FOnLoadComplete: TNotifyEvent;
    procedure NotifyLoadComplete;
  protected
    procedure Execute; override;
  public
    constructor Create(const ImagePath: string; OnComplete: TNotifyEvent);
    destructor Destroy; override;
    property LoadedGraphic: TGraphic read FLoadedGraphic;
  end;

constructor TImageLoadThread.Create(const ImagePath: string; OnComplete: TNotifyEvent);
begin
  inherited Create(True); // 先挂起线程
  FImagePath := ImagePath;
  FOnLoadComplete := OnComplete;
  FreeOnTerminate := True; // 线程结束后自动释放
end;

destructor TImageLoadThread.Destroy;
begin
  FLoadedGraphic.Free;
  inherited;
end;

procedure TImageLoadThread.Execute;
var
  FileExt: string;
begin
  // 根据文件格式创建对应的Graphic对象
  FileExt := LowerCase(ExtractFileExt(FImagePath));
  if FileExt = '.bmp' then
    FLoadedGraphic := TBitmap.Create
  else if FileExt in ['.jpg', '.jpeg'] then
    FLoadedGraphic := TJPEGImage.Create
  else if FileExt = '.png' then
    FLoadedGraphic := TPngImage.Create
  else
    Exit; // 不支持的格式直接退出

  try
    FLoadedGraphic.LoadFromFile(FImagePath);
    // 同步到主线程通知加载完成
    Synchronize(NotifyLoadComplete);
  except
    FLoadedGraphic.Free;
    FLoadedGraphic := nil;
  end;
end;

procedure TImageLoadThread.NotifyLoadComplete;
begin
  if Assigned(FOnLoadComplete) then
    FOnLoadComplete(Self);
end;

第二步：主线程使用线程 #

procedure TYourForm.btnLoadBigImageClick(Sender: TObject);
begin
  // 启动后台线程加载图片
  TImageLoadThread.Create('D:\LargeImage.png', OnImageLoadComplete).Resume;
end;

procedure TYourForm.OnImageLoadComplete(Sender: TObject);
var
  LoadThread: TImageLoadThread;
begin
  LoadThread := Sender as TImageLoadThread;
  if Assigned(LoadThread.LoadedGraphic) then
  begin
    // 把加载好的图像赋值给TImage，触发绘制
    Image1.Picture.Assign(LoadThread.LoadedGraphic);
    
    // 等待绘制完成
    Application.ProcessMessages;
    
    // 开始处理图像
    YourImageProcessingFunction(Image1.Picture.Graphic);
  end;
end;

这个方案的好处是加载过程中UI不会假死，用户可以正常操作界面，体验更好。

方案三：利用OnPaint事件标记绘制完成 #

通过TImage的OnPaint事件，在第一次完成绘制时标记状态，主线程等待这个状态：

var
  FIsImageDrawn: Boolean;

procedure TYourForm.LoadAndWaitForDraw(const ImagePath: string);
begin
  FIsImageDrawn := False;
  // 临时替换OnPaint事件
  Image1.OnPaint := Image1CustomPaint;
  
  // 加载图片
  Image1.Picture.LoadFromFile(ImagePath);
  
  // 等待绘制完成
  while not FIsImageDrawn do
  begin
    Application.ProcessMessages;
    Sleep(10);
  end;
  
  // 恢复原来的OnPaint事件（如果之前有设置的话）
  Image1.OnPaint := nil;
  
  // 处理图像
  YourImageProcessingFunction(Image1.Picture.Graphic);
end;

procedure TYourForm.Image1CustomPaint(Sender: TObject);
var
  TargetImage: TImage;
begin
  TargetImage := Sender as TImage;
  // 执行默认的绘制逻辑
  TargetImage.Canvas.Draw(0, 0, TargetImage.Picture.Graphic);
  
  // 只标记一次绘制完成
  if not FIsImageDrawn then
    FIsImageDrawn := True;
end;

注意：如果TImage因为窗口重绘等原因再次触发OnPaint，这个标记不会重复设置，所以要确保只在第一次绘制时处理。

内容的提问来源于stack exchange，提问作者Amélie