Delphi实现窗口文字淡入淡出渐变效果的方法
更新时间：2014年07月24日 11:29:08 投稿：shichen2014
这篇文章主要介绍了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.
相关文章
这篇文章主要介绍了delphi7连接mysql5的实现方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下2014-12-12
最近打算学习Delphi实现在数据库中存取图像,网上的好多Delphi实现在数据库中存取图像都是错误的，所以我把图片给弄好了。2008-01-01
插件管理框架 for Delphi许多软件采用“插件”（PlugIns）来扩展其功能，比如PhotoShop所支持的各类滤镜就是插件；我们所熟知的Winamp，也有许多皮肤以及可视效果插件。再有微软的windows media player，以及QQ，冲浪软件Opera……采用插件技术的软件数不胜数，而各个软件的具体实现方式也是五花八门，各有特点。2008-03-03
Windows API GetLastError()函数返回值含义解释
这篇文章主要介绍了Windows API GetLastError()函数返回值含义解释,本文罗列了所有错误代码及中文注释,需要的朋友可以参考下2015-05-05
插件管理框架2.2 实现代码2008-03-03
Delphi实例演示Rect、Bounds生成TRect的区别
这篇文章主要介绍了Delphi实例演示Rect、Bounds生成TRect的区别,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi 判断字符串是否包含汉字，正则版与非正则版实现,需要的朋友可以参考下2022-12-12
这篇文章主要介绍了Delphi下OpenGL2d绘图之画线的方法,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了Delphi7中Listview的常用功能,需要的朋友可以参考下2014-07-07
最新评论