1,185
社区成员




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;