关于颜色方面的

[chowhey]

我有一个选择颜色的VCL，我就是想知道如何能将它转换成像网页的那种＃FFFFFF的形式。，越详细越正确越好。。。。急。谢谢大家了。

[pathe]

var
color : TColor(or integer);

color := $00ffffff;
从后往前依次为R,G,B,Alpha通道
R:0-255; 00-ff;
G:0-255; 00-ff;
B:0-255; 00-ff;
故$000000ff为红色;
$0000ff00为绿色;
$00ff0000为蓝色;
如果三个通道的直相等,颜色就是灰色,全零为黑,全255为白!
还要详细点吗?

[dq]

用Format可以，例——
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ColorDialog1.Execute then Exit;
with Label1 do begin
Color := ColorDialog1.Color;
Caption := Format('#%.6x', [Color]);
end;
end;

[jiju]

同上