Delphi实现窗口文字淡入淡出渐变效果的方法

本文所述实例为Dlephi实现的窗口渐变文字效果，文字可以不停的变化，颜色由浅入深，由清淅变模糊，文字渐变的时间可在代码中自己调整。主要实现代码如下：

unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls;
type
TForm1=class(TForm)
Timer1:TTimer;
Label1:TLabel;
procedureTimer1Timer(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
var
r,g,b:integer;
{$R*.dfm}
procedureTForm1.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.