窗口文字淡入淡出渐变效果代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】窗口文字淡入淡出渐变效果

作者:秀清 / 发布于2015/5/13/ 800


	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.

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

秀清贡献的其它代码(25)