Delphi VCL中TImage如何将带透明像素图片的透明区域设为clBlue

问题分析 #

你尝试的两种方案无效的原因：

• 方案1：Picture.Assign(MyGraphic)会直接替换TImage的显示内容，之前用Canvas填充的蓝色会被完全覆盖，因此看不到蓝色背景。
• 方案2：TransparentColor := clBlue是将图片中的clBlue像素设为透明，和你需要的“透明像素显示为clBlue”逻辑完全相反。

有效解决方案 #

方案1：预先生成带蓝色背景的位图，再赋值给TImage

先创建一个与TImage尺寸一致的位图，填充蓝色背景后，将目标TGraphic绘制到这个位图上（自动处理透明通道），最后把处理好的位图赋值给TImage的Picture。

var
  TempBmp: TBitmap;
begin
  TempBmp := TBitmap.Create;
  try
    // 同步临时位图与TImage的尺寸
    TempBmp.Width := MyImage.Width;
    TempBmp.Height := MyImage.Height;
    // 填充蓝色背景
    TempBmp.Canvas.Brush.Color := clBlue;
    TempBmp.Canvas.FillRect(Rect(0, 0, TempBmp.Width, TempBmp.Height));
    // 将带透明的TGraphic绘制到临时位图上
    TempBmp.Canvas.Draw(0, 0, MyGraphic);
    // 赋值给TImage完成显示
    MyImage.Picture.Assign(TempBmp);
  finally
    TempBmp.Free;
  end;
end;

方案2：通过TImage的OnPaint事件绘制背景

直接在TImage的绘制事件中，先渲染蓝色背景，再叠加上带透明的图片，这样每次控件重绘都会自动执行这个逻辑。

首先给TImage绑定OnPaint事件，然后实现事件处理代码：

procedure TForm1.MyImagePaint(Sender: TObject);
begin
  // 绘制蓝色背景
  MyImage.Canvas.Brush.Color := clBlue;
  MyImage.Canvas.FillRect(MyImage.ClientRect);
  // 绘制目标图片（透明区域会透出下方的蓝色）
  if Assigned(MyImage.Picture.Graphic) then
    MyImage.Canvas.Draw(0, 0, MyImage.Picture.Graphic);
end;

注意：使用该方案时，需根据需求设置TImage的Stretch属性避免图片变形；后续更新图片时，调用MyImage.Invalidate()触发重绘即可。

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