Delphi实现窗口文字淡入淡出渐变效果 Delphi实现窗口文字淡入淡出渐变效果的方法
人气:0想了解Delphi实现窗口文字淡入淡出渐变效果的方法的相关内容吗,在本文为您仔细讲解Delphi实现窗口文字淡入淡出渐变效果的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:Delphi,窗口文字,淡入淡出,效果,下面大家一起来学习吧。
本文所述实例为Dlephi实现的窗口渐变文字效果,文字可以不停的变化,颜色由浅入深,由清淅变模糊,文字渐变的时间可在代码中自己调整。主要实现代码如下:
unit Unit1; interface uses 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; implementation var 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.
加载全部内容