Delphi实现窗口文字淡入淡出渐变效果的方法
<p>本文所述实例为Dlephi实现的窗口渐变文字效果，文字可以不停的变化，颜色由浅入深，由清淅变模糊，文字渐变的时间可在代码中自己调整。主要实现代码如下：</p><div class="jb51code">
<pre class="brush:delphi;">
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.
</pre>
</div>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>背景，文字渐变（无闪屏）</li><li>photoshop去除渐变色上的文字的简单方法</li><li>jQuery实现的立体文字渐变效果</li><li>js实现类似光照的炫彩文字渐变视觉冲击效果</li><li>jQuery实现的文字hover颜色渐变效果实例</li><li>神奇！js+CSS+DIV实现文字颜色渐变效果</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]