Delphi的颜色常量怎样转换成0-FFFFFF形式的数值?

Question

例如：
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(clGradientInactiveCaption));
end;它显示的是负数:-16777188,怎样转换成0-FFFFFF形式的呢?

Answer 1

ShowMessage(Format('%x',[clGradientInactiveCaption]));

Answer 2

bdmh,是由RGB组成3个Byte的那种形式,也就是FFFFFF形式的。Delphi的那种是负数,我不知道RGB分量究竟是多少用过OleTranslateColor,返回0,不正确

Answer 3

啊,我明白了,是这个函数ColortoRGB,它可以转为RGB三分量,哈哈哈,就在ColorToString的隔壁谢谢bdmh,结贴