delphi如何让窗体颜色随机闪烁呢

Question

加个TIMER就可以了吗

Answer 1

错了 是Label的字体闪烁 随机的

Answer 2

设置Timer1.Interval属性为100（一秒闪10次）procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Font.Color := Random($FFFFFF);
end;

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    randomize;
    Label1.Font.Color := Random($FFFFFF-$FFFF00+1);
end;

Answer 4

要不自己先建一个颜色的集合，roll（Random）一下好了