本文所述实例为Dlephi实现的窗口渐变文字效果,文字可以不停的变化,颜色由浅入深,由清淅变模糊,文字渐变的时间可在代码中自己调整。主要实现代码如下:
unit Unit1;
interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type TForm1 = class(TForm) Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private {
Private declarations }
public {
Public declarations }
end;
var Form1: TForm1;
implementationvar r,g,b:integer;
{
$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin if (r<=255) and (g<=255) and (b<=255) then begin Label1.Font.Color:=RGB(r,g,b);
//改变文字颜色 r:=r+1;
g:=g+1;
b:=b+1;
end else begin r:=0;
g:=0;
b:=0;
end;
end;
end.