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.
热门推荐
7 简短的二胎祝福语
10 简短霸气女儿生日 祝福语
11 祝福语高考小众诗句简短
12 元旦祝福语20秒简短
13 老师过年祝福语大全 简短
14 一生祝福语简短
15 产检祝福语简短霸气
16 朋友店开张祝福语简短
17 生日爱情祝福语大全简短
18 朋友女儿生日祝福语 简短