Delphi实现窗口文字淡入淡出渐变效果的方法
更新时间：2014年07月24日 11:29:08 投稿：shichen2014
这篇文章主要介绍了Delphi实现窗口文字淡入淡出渐变效果,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
本文所述实例为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.
相关文章
delphi 简单实现程序全屏显示无标题栏，覆盖整个屏幕，这个在做工控机或屏保时有用的，具体代码如下，感兴趣的朋友可以参考下哈2013-06-06
Delphi实例演示Rect、Bounds生成TRect的区别
这篇文章主要介绍了Delphi实例演示Rect、Bounds生成TRect的区别,需要的朋友可以参考下2014-07-07
内容： 要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI 文件，所以列了如下方法给大家参考：2008-03-03
这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下2014-07-07
这篇文章介绍了Delphi 生成excel中饼图的实例代码，有需要的朋友可以参考一下2013-08-08
delphi xe 可用的MD5算法，需要的朋友可以参考一下2013-04-04
在用Delphi 编程处理文本文件的时候，如果要装载的文件比较大，你可能会想在文件装载过程中提供一个装载进度的提示－－那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。2008-03-03
这篇文章主要介绍了Delphi 实现软件自动升级的功能的相关资料,希望通过本文能帮助到大家实现这样的功能，需要的朋友可以参考下2017-09-09
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下2015-05-05
这篇文章主要介绍了Delphi实现获取进程列表及相关信息的实例,希望通过本文大家能实现这样的功能，需要的朋友可以参考下2017-09-09
最新评论