Delphi中GDI+绘制后TImage无法更新的问题排查

问题原因 #

1. VCL TImage的绘图机制差异 #

传统TImage（Image1）通过Canvas.Ellipse绘制时，是直接修改控件关联的Bitmap对象——这个Bitmap是TImage持久化的图像存储，每次绘制都会更新Bitmap内容，后续控件刷新时会自动重新渲染Bitmap，所以每次点击按钮都能看到新的圆形。

而你用TGPGraphics.Create(Image2.Canvas.Handle)创建GDI+绘图对象时，是直接操作TImage窗口的设备上下文(DC)，并没有修改Image2的Bitmap属性。首次点击时窗口处于待刷新状态，GDI+的临时绘制内容会被显示，但后续点击时，窗口没有强制刷新触发，或者系统会用Image2原有的Bitmap（初始为空或首次绘制前的内容）覆盖临时绘制，导致新内容无法显示。

2. GDI+与VCL Canvas的同步问题 #

VCL的Canvas控件在刷新时，会优先从自身的Bitmap中读取内容渲染。直接操作DC的GDI+绘制属于“一次性临时绘制”，不会被VCL保存到Bitmap中。一旦控件因窗口遮挡、最小化恢复等情况触发刷新，这些临时绘制的内容就会丢失，更不用说后续点击按钮时，系统不会自动保留上次的GDI+绘制结果。

解决方案 #

方案1：将GDI+绘制到TImage的Bitmap上 #

修改代码，让GDI+直接绘制到Image2的Bitmap对象中，和Image1的绘图机制保持一致：

procedure TFormMain.Button1Click(Sender: TObject);
var
  I, X, Y, R: Integer;
  graphics: TGPGraphics;
  SolidPen: TGPPen;
  SolidBrush: TGPBrush;
begin
  // 确保Image2的Bitmap已创建且尺寸匹配控件
  if not Assigned(Image2.Picture.Bitmap) then
    Image2.Picture.Bitmap.SetSize(Image2.ClientWidth, Image2.ClientHeight);
  
  // 基于Bitmap的句柄创建GDI+绘图对象，而非窗口DC
  graphics := TGPGraphics.Create(Image2.Picture.Bitmap.Handle);
  SolidPen := TGPPen.Create(MakeColor(255, 0, 0, 0), 3);
  SolidBrush := TGPSolidBrush.Create(MakeColor(255, 0, 0, 0));
  try
    graphics.SetSmoothingMode(SmoothingModeAntiAlias);
    SolidPen.SetWidth(3);
    Image1.Canvas.Pen.Width := 3;

    for I := 1 to 1000 do
    begin
      R := Random(100);
      X := Random(700);
      Y := Random(1000);
      Image1.Canvas.Ellipse(X-R, Y-R, X+R, Y+R);

      (SolidBrush as TGPSolidBrush).SetColor($80000000 or Random($1000000));
      graphics.FillEllipse(SolidBrush, X-R, Y-R, 2*R, 2*R);
      graphics.DrawEllipse(SolidPen, X-R, Y-R, 2*R, 2*R);
    end;

    // 绘制完成后通知Image2刷新控件
    Image2.Invalidate;
  finally
    SolidBrush.Free;
    SolidPen.Free;
    graphics.Free;
  end;
end;

核心改动：用Image2.Picture.Bitmap.Handle替代Image2.Canvas.Handle创建GDI+对象，让绘制内容持久化到Bitmap中，后续点击按钮时每次都会更新Bitmap，刷新后即可显示新内容。

方案2：在TImage的OnPaint事件中执行GDI+绘制 #

如果需要保留历史绘制内容，或实现更灵活的动态绘制，可将绘制逻辑移至Image2的OnPaint事件，按钮点击仅更新绘制数据并触发刷新：

// 先在窗体类中定义存储圆形数据的结构和列表
type
  TCircle = record
    X, Y, R: Integer;
    Color: Cardinal;
  end;

var
  Circles: TList<TCircle>;

// 按钮点击事件：生成新圆形数据并触发刷新
procedure TFormMain.Button1Click(Sender: TObject);
var
  I: Integer;
  Circle: TCircle;
begin
  for I := 1 to 1000 do
  begin
    Circle.R := Random(100);
    Circle.X := Random(700);
    Circle.Y := Random(1000);
    Circle.Color := $80000000 or Random($1000000);
    Circles.Add(Circle);

    // 同步绘制到Image1
    Image1.Canvas.Pen.Width := 3;
    Image1.Canvas.Ellipse(Circle.X-Circle.R, Circle.Y-Circle.R, Circle.X+Circle.R, Circle.Y+Circle.R);
  end;
  
  // 触发Image2的OnPaint事件，重新绘制所有圆形
  Image2.Invalidate;
end;

// Image2的OnPaint事件：用GDI+绘制所有圆形数据
procedure TFormMain.Image2Paint(Sender: TObject);
var
  graphics: TGPGraphics;
  SolidPen: TGPPen;
  SolidBrush: TGPSolidBrush;
  I: Integer;
  Circle: TCircle;
begin
  graphics := TGPGraphics.Create(Image2.Canvas.Handle);
  SolidPen := TGPPen.Create(MakeColor(255, 0, 0, 0), 3);
  SolidBrush := TGPSolidBrush.Create(MakeColor(255, 0, 0, 0));
  try
    graphics.SetSmoothingMode(SmoothingModeAntiAlias);
    SolidPen.SetWidth(3);

    for I := 0 to Circles.Count - 1 do
    begin
      Circle := TCircle(Circles[I]);
      SolidBrush.SetColor(Circle.Color);
      graphics.FillEllipse(SolidBrush, Circle.X-Circle.R, Circle.Y-Circle.R, 2*Circle.R, 2*Circle.R);
      graphics.DrawEllipse(SolidPen, Circle.X-Circle.R, Circle.Y-Circle.R, 2*Circle.R, 2*Circle.R);
    end;
  finally
    SolidBrush.Free;
    SolidPen.Free;
    graphics.Free;
  end;
end;

// 窗体初始化时创建列表
procedure TFormMain.FormCreate(Sender: TObject);
begin
  Circles := TList<TCircle>.Create;
end;

// 窗体销毁时释放列表
procedure TFormMain.FormDestroy(Sender: TObject);
begin
  Circles.Free;
end;

这种方式完全遵循VCL的绘图生命周期，所有绘制操作都在控件刷新时执行，确保任何情况下控件都能正确显示所有历史绘制内容，避免临时绘制丢失的问题。

内容的提问来源于stack exchange，提问作者stevenvh