delphi rgbalpha 哪个单元
答案:2 悬赏:50 手机版
解决时间 2021-02-09 16:51
- 提问者网友：杀生予夺
- 2021-02-08 20:33
delphi rgbalpha 哪个单元
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-02-08 21:56
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;
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;
全部回答
- 1楼网友：逐風
- 2021-02-08 22:41
rgb(a,b,c)中三个参数，分别代表：红、绿、兰3基色，a、b、c的取值都是在0~255之间。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯