delphi中怎么让字体变色啊？

来源：百度知道 编辑：UC知道 时间：2024/06/23 02:32:53
请教高手
timer中应该怎么写？
要让字体随即变色

var
i,j,k:integer;

Randomize;
i:=Random(255);
j:=Random(255);
k:=Random(255);
Edit1.Font.Color:=RGB(i,j,k);

Timer的Interval设置程序1000，写下面代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Color:=clBlue;
application.ProcessMessages;
sleep(300);
Label1.Font.Color:=clRed;
application.ProcessMessages;
sleep(300);
end;

这个是简单的：
begin if Label1.font.color=CLBlack then
Label1.font.color:=CLred
else if Label1.font.color=CLred then
Label1.font.color:=CLyellow
else
Label1.font.color:=CLBlack;

end;
以上代码delphi 7.0测试通过的.但是用随机的好像有问题，。等我调试后再说吧

XX.font.color：=CLBlack ;
直接赋值。
clblack是定义的常量。