delphi label 背景颜色设置！

来源：互联网发布：虎牙直播人气软件编辑：程序博客网时间：2024/04/20 12:19

需要写一个动态霓虹灯程序，主要结构和程序如下：

创建VCL工程，控件中直接选取一个label 和一个Timer控件。

由于不需要框架，所以直接设置Form属性中BorderStyle ：= bsNone；取消边框。

双击创建timer对应相应：Timer1Timer，这里可以设置他的间隔调用时间。

在里面直接设置Form和Label 。 font的AutoSize ：= True就可以自动调整大小。

在里面做case操作：然后更改Label。color和Label。Font。Color，就可以随机产生颜色；Case中的条件直接使用Random（10），在条件中根据0-10去对应更改颜色就OK；

procedure TForm1.Timer1Timer(Sender: TObject);begin  label1.Font.Size := Random(50);  Form1.Left := Random(800);  Form1.Top := Random(600);  case (Random(8)) of    0: Label1.Color := clYellow;    1: Label1.Color := clGreen;    2: Label1.Color := clRed;    3: Label1.Color := clGray;    4: Label1.Color := clWhite;    else      Label1.Color := clRed;  end;  case (Random(8)) of    0: Label1.Font.Color := clYellow;    1: Label1.Font.Color := clGreen;    2: Label1.Font.Color := clRed;    3: Label1.Font.Color := clGray;    4: Label1.Font.Color := clWhite;  end;end;

代码如上；

但是结果不是很理想，Label的backgroud怎么都不能改变颜色。后来发现一个属性需要我们去更改TransparentColor需要更改为False。否则Label 的颜色会一直跟随Form的颜色。

结果如下：一切都正常了！

0 0