在delphi中,如何将colordialog1.color的color值表示成十六进制字符,即转换成十六进制表示的字符串型?如比:黄色,表示为:00ffff.
var str1
begin
if colordialog1.execute then
str1:=ColorTostring(ColorDialog1.Color);
end
得到的str1为color的字符串形式,但不是全是十六进制表示的字符.比如当我在colordialog1中选中了红色,str1的值就是clRed,而不是我想要的字符串0000ff.
各位高手帮帮忙,谢谢!
var str1
begin
if colordialog1.execute then
str1:=ColorTostring(ColorDialog1.Color);
end
得到的str1为color的字符串形式,但不是全是十六进制表示的字符.比如当我在colordialog1中选中了红色,str1的值就是clRed,而不是我想要的字符串0000ff.
各位高手帮帮忙,谢谢!
procedure TForm1.Button4Click(Sender: TObject);
var
str: string;
begin
if colordialog1.execute then
str:=inttohex(ColorDialog1.Color,8);
showmessage(str);
end;