Delphi整数型TAlphaColor转颜色描述及TColorCombobox赋值方法

从RTTI检查器获取到Red对应的整数值为-65536，需解决两个技术问题：

• 不手动将TAlphaColorRec记录的所有成员复制到数组的前提下，将该整数值转换为对应的Red常量描述
• 实现类似ColorCombobox1.Color := somefunction(-65536)的赋值逻辑，让TColorCombobox控件可识别该值为Red

相关Delphi源码定义如下：

TAlphaColorRec = record
const
  Alpha = TAlphaColor($FF000000);
  Aliceblue = Alpha or TAlphaColor($F0F8FF);
  Antiquewhite = Alpha or TAlphaColor($FAEBD7);
  Aqua = Alpha or TAlphaColor($00FFFF);
  // 其余颜色常量省略
end;

问题1：整数值转对应颜色常量名 #

通过RTTI遍历TAlphaColorRec的内嵌常量做值匹配即可，无需手动维护常量映射数组，参考代码如下：

uses
  System.Rtti, System.TypInfo;

function GetAlphaColorName(const AColorValue: TAlphaColor): string;
var
  LContext: TRTTIContext;
  LRecordType: TRTTIRecordType;
  LConstField: TRTTIField;
begin
  Result := '';
  LRecordType := LContext.GetRecordType(TypeInfo(TAlphaColorRec));
  if not Assigned(LRecordType) then Exit;

  for LConstField in LRecordType.GetFields do
  begin
    // 仅匹配const定义的TAlphaColor类型成员
    if (LConstField.FieldType.Handle = TypeInfo(TAlphaColor)) 
      and (LConstField.GetConstantValue<TAlphaColor> = AColorValue) then
    begin
      Result := LConstField.Name;
      Break;
    end;
  end;
end;

// 调用示例：传入强转后的TAlphaColor值即可返回'Red'
// GetAlphaColorName(TAlphaColor(-65536))

注意：该方法依赖Delphi RTTI能力，编译时需确保工程开启RTTI生成（默认配置已满足要求）。

问题2：让TColorComboBox识别数值为Red #

你拿到的-65536本质是32位无符号TAlphaColor值$FFFF0000（即标准不透明红色）被当成有符号32位整数读取的结果，不需要做复杂的通道转换，直接做类型强转即可赋值，控件可正常识别：

// 直接强转即可，无需额外封装转换函数
ColorCombobox1.Color := TAlphaColor(-65536);

如果使用的是VCL版本的TColorComboBox、底层用TColor类型而非FMX的TAlphaColor，只需额外做一次颜色类型转换，调整通道顺序并移除Alpha通道即可：

function AlphaColorToVCLColor(const AAlphaColor: TAlphaColor): TColor;
var
  LRec: TAlphaColorRec;
begin
  LRec.Color := AAlphaColor;
  // VCL TColor为BGR顺序，无Alpha通道
  Result := RGB(LRec.B, LRec.G, LRec.R);
end;

// VCL场景调用示例
// ColorCombobox1.Color := AlphaColorToVCLColor(TAlphaColor(-65536));

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