1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled :=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled :=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
a,b,c:integer;
begin
a:=random(255);
b:=random(255);
c:=random(255);
label1.Font.Color :=RGB(a,b,c);
end;