本文整理自网络,侵删。
//转换 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;
相关阅读 >>
Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;
更多相关阅读请进入《Delphi》频道 >>