为何Delphi会更改位图的透明色？GetTransparentColor返回值异常

核心原因 #

Delphi的TBitmap在处理24位/32位真彩色位图的透明色时，会对设置的透明色值添加固定偏移量$02000000。这么做是为了区分“用户主动设置了透明色”和“未设置透明色”的状态——若直接使用原始颜色值（比如白色$FFFFFF），无法和默认的未设置状态做区分。

你看到的“颜色值被加上一个数值”就是这个偏移量，导致GetTransparentColor返回的不是原始白色$FFFFFF，而是$02FFFFFF，自然无法匹配预期的白色值。

注意：该偏移处理仅针对无调色板的真彩色位图（PixelFormat为pf24bit或pf32bit），8位调色板位图的透明色通过调色板索引存储，不会有此问题。

解决办法 #

1. 手动修正返回值 #

获取GetTransparentColor的结果后，减去固定偏移量还原原始颜色：

var
  TransColor, ActualColor: TColor;
begin
  TransColor := Bitmap.GetTransparentColor;
  // 针对真彩色位图修正偏移
  if (Bitmap.PixelFormat in [pf24bit, pf32bit]) then
    ActualColor := TransColor - $02000000
  else
    ActualColor := TransColor;
  // 此时ActualColor即为设置的原始白色$FFFFFF
end;

2. 避免依赖内部字段（不推荐） #

部分旧版Delphi可直接访问TBitmap的FTransparentColor字段获取原始值，但该方法依赖内部实现，版本更新后可能失效，不建议用于生产代码：

type
  TBitmapAccess = class(TBitmap);
var
  ActualColor: TColor;
begin
  ActualColor := TBitmapAccess(Bitmap).FTransparentColor;
end;

3. 提前判断位图格式 #

在设置或获取透明色前，先检查位图的PixelFormat，针对真彩色格式提前做好偏移预期，避免直接用原始颜色值对比。

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