Delphi中的常量定义

Question

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

Answer 1

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

Answer 2

我看了里面的代码，但是里面都是用一个数来定义的
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来定义，该怎么写呀？？？？

Answer 3

RGB是个函数，根本没法在定义常量的时候用嘛如果非要用，你得改用变量。

Answer 4

根据RGB函数的源码很容易将你要求的RGB值转为十六进制值的function RGB(r, g, b: Byte): COLORREF;
begin
  Result := (r or (g shl 8) or (b shl 16));
end;

Answer 5

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