亲宝软件园·资讯

展开

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.

加载全部内容

相关教程
猜你喜欢
用户评论