如何在从资源加载TBitmap时实现其正常透明显示

算力阿峰

2026-10-5

TBitmap资源加载透明失效修复方案

核心问题根因

你当前代码的核心问题是透明属性设置时机错误：LoadFromResourceName方法加载位图资源时，会重置TBitmap对象的所有默认属性，你在加载前设置的Transparent、TransparentColor会被直接覆盖，不会生效。

可调整的优化点

调整属性设置顺序，在位图资源加载完成后再配置透明相关属性
确认资源位图的透明区域色值和你设置的TransparentColor完全匹配，避免近似色导致透明失效
若使用TImage控件承载位图，需同步开启TImage的Transparent属性为True
若你的位图是带Alpha通道的32位位图，需单独处理Alpha通道渲染，不要使用默认的Transparent属性

修正后代码示例

procedure TMovie.BitBtn1Click(Sender: TObject);
var
 BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  try
    // 先加载资源
    BitMap1.LoadFromResourceName(HInstance,'Bitmap_2');
    // 加载完成后再设置透明属性
    BitMap1.Transparent := True;
    // 可以固定设置为clBlack，也可以动态取位图左上角像素作为透明色，适配不同资源
    BitMap1.TransparentColor := clBlack;
    // 如果是赋值给TImage，同步开启TImage的透明属性
    Star_2.Transparent := True;
    Star_2.Picture.Assign(Bitmap1);
  finally
    BitMap1.Free;
  end;
end;