Question

如何设置Delphi文本标签字体的颜色闪烁？

rt！

Answer 1

在节目放个timer组件，设置它的interval为300，然后在timer的interval的事件写代码：

var
i,j,k:integer;
begin
Randomize;
i:=Random(255);
j:=Random(255);
k:=Random(255);
label1.Font.Color:=RGB(i,j,k);
end;