本文整理自网络,侵删。
//转换 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; 相关阅读 >>
firemonkey listbox 的几个事件:拖动,点击,长按
更多相关阅读请进入《Delphi》频道 >>