Question

delphi的RGB函数使用

procedure TForm1.Timer1Timer(Sender: TObject);
a,b,c:integer;
begin
这儿需要怎么做？标题文字变化。
label1.Font.Color :=RGB(a,b,c);
end;

end.

Answer 1

RGB(a,b,c)中三个参数，分别代表：红、绿、兰3基色，a、b、c的取值都是在0~255之间。

Answer 2

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;