财务软件版1楼: 如何color=26367 转成color=＇＇#ff8100＇＇

2楼: var
I: Integer;
begin
I := ColorToRGB(clRed);
ShowMessage(＇＇#＇＇ + IntToHex(GetRValue(I), 2) + IntToHex(GetGValue(I), 2) +
IntToHex(GetBValue(I), 2));
end; 如金蝶财务软件下载

3楼: 楼主，你的那个FF8100是不是错了？我这怎么是FF6600呢

function ColorToHex(const Color: TColor): string;
begin
Result := Format(＇＇#%2.2x%2.2x%2.2x＇＇, [GetRValue(Color), GetGValue(Color), GetBValue(Color)]);
end;

4楼: 不对呀
26367 转出来怎么会是 #FF6600

5楼: 对呀，这两个颜色是一样的
那可能就是对了

6楼: 我用vba设置好颜色，用取色工具看的，确实是FF6600

财务软件版7楼: 多人接受答案了。

8楼: FF6600 是对了 我的错了