Delphi中的常量定义

[chengxinwen]

请问我想在程序中定义一个颜色常量应该怎么写？
是使用RGB来定义的
比如说定义一个myColor为淡蓝色
这样写是否错了
const myColor : TColor = RGB(111, 222,111);

[cuteant]

你可以参考delphi自己定义的颜色，比如输入一个clRed，然后按住Ctrl去点它
就可以看到clRed是怎么定义的了。

[chengxinwen]

我看了里面的代码，但是里面都是用一个数来定义的
clBlack = TColor($000000);
clMaroon = TColor($000080);
clGreen = TColor($008000);
clOlive = TColor($008080);
clNavy = TColor($800000);
clPurple = TColor($800080);
clTeal = TColor($808000);
clGray = TColor($808080);
clSilver = TColor($C0C0C0);
clRed = TColor($0000FF);
clLime = TColor($00FF00);
clYellow = TColor($00FFFF);
clBlue = TColor($FF0000);
clFuchsia = TColor($FF00FF);
clAqua = TColor($FFFF00);
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);
但我想用RGB来定义，该怎么写呀？？？？

[cuteant]

RGB是个函数，根本没法在定义常量的时候用嘛

如果非要用，你得改用变量。

[chengxinwen]

那我想在我的程序中自定义一个颜色，以便以后修改颜色时方便一点，不用再到整个代码中去找颜色了，只要修改自定义的颜色常量就行了，请问该怎么解决？？

[cuteant]

就参考它的方法啊，定义一个十六进制的颜色代码

如果有好多个自定义的颜色就定义一个颜色数组

[cuteant]

根据RGB函数的源码很容易将你要求的RGB值转为十六进制值的

function RGB(r, g, b: Byte): COLORREF;
begin
Result := (r or (g shl 8) or (b shl 16));
end;

[chengxinwen]

谢谢，我已经知道怎么做了，我先用RGB返回一个值，再用这个值去定义常量，不过还要谢谢大家！！