//转换 TColor 到 HTML 颜色串 function ColorToHtml(color:TColor):string; var RgbColor : TColorRef; begin RgbColor := ColorToRGB(color); Result:=Format('#%.2x%.2x%.2x',[GetRValue(RgbColor),GetGValue(RgbColor),GetBValue(RgbColor)]); end;
//转换 TColor 到 HTML 颜色串 function ColorToHtml(color:TColor):string; var RgbColor : TColorRef; begin RgbColor := ColorToRGB(color); Result:=Format('#%.2x%.2x%.2x',[GetRValue(RgbColor),GetGValue(RgbColor),GetBValue(RgbColor)]); end;
转载于:https://www.cnblogs.com/xe2011/p/3162221.html