颜色问题？？（特急）；

Question

type TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFFF;

Answer 1

告：coldljy   这一点，我知道，就是不会用，请给一个具体的  type TColor = -(COLOR_ENDCOLORS + 1)..$02FFFFFF;  编程时如何使用压 

Answer 2

//i:integer;
...
function TForm1.RGBToColor(R, G, B: Byte): TColor;
begin
    Result:=B Shl 16 Or G Shl 8 Or R;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Inc(i);
    Label1.Color:=RGBtoColor(i,i,i);//背景色//文字色是Label1.Font.Color
end;