ColorToDec函数(clRed = $ 0000FF)？

Question

如何将TColor值转换为十进制表示(clRed = $ 0000FF)？

Answer 1

试试这个:

uses
   Graphics;

function ColorToHex(const color: TColor): string;
begin
   result := '$' + IntToHex(ColorToRGB(color), 6);
end;