Question

delphi中怎么让字体变色啊？

请教高手
timer中应该怎么写？
要让字体随即变色

Answer 1

var
i,j,k:integer;

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

Answer 2

这个是简单的：
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测试通过的.但是用随机的好像有问题，。等我调试后再说吧

Answer 3

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;

Answer 4

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