Delphi實現(xiàn)窗口文字淡入淡出漸變效果的方法
更新時間：2014年07月24日 11:29:08 投稿：shichen2014
這篇文章主要介紹了Delphi實現(xiàn)窗口文字淡入淡出漸變效果,需要的朋友可以參考下
本文所述實例為Dlephi實現(xiàn)的窗口漸變文字效果，文字可以不停的變化，顏色由淺入深，由清淅變模糊，文字漸變的時間可在代碼中自己調(diào)整。主要實現(xiàn)代碼如下：
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.
相關(guān)文章
這篇文章主要介紹了Delphi基本圖像處理方法,實例匯總了Delphi操作圖像實現(xiàn)浮雕、反色、模糊、翻轉(zhuǎn)等常用效果的方法,非常具有實用價值,需要的朋友可以參考下2015-05-05
由Delphi園地整理的Delphi書籍15本常用的參考書籍，需要的朋友可以下載了。2011-12-12
為什么繼續(xù)選擇DELPHI(即將逝去的Delphi前景在何方)
已經(jīng)鉆DELPHI很深了，當(dāng)然現(xiàn)在DELPHI是過了最輝煌的時代。但為什么要繼續(xù)下去，而不轉(zhuǎn)向其它的?這是不是死腦筋2018-02-02
delphi中exit,abort,break,continue的區(qū)別介紹
本文詳細介紹下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的區(qū)別，感興趣的朋友可以參考下哈，希望對你學(xué)習(xí)跳出有所幫助2013-04-04
這篇文章主要介紹了Delphi 中內(nèi)存映射對于大文件的使用的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi中對時間操作方法匯總,可以對Delphi的時間操作有一個更加深入的了解,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現(xiàn)毫秒級別的倒計時實例代碼,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了delphi字符串分隔函數(shù)用法,通過自定義函數(shù)SeparateTerms2實現(xiàn)將字符串分割后存入字符串列表的功能,具有一定的實用價值,需要的朋友可以參考下2014-12-12
delphi實現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法
這篇文章主要介紹了delphi實現(xiàn)將BMP格式圖形轉(zhuǎn)化為JPG格式圖形的方法,通過簡單的自定義函數(shù)調(diào)用系統(tǒng)自帶的changefileext及SaveToFile等方法來實現(xiàn)格式轉(zhuǎn)換功能,是非常實用的技巧,需要的朋友可以參考下2014-12-12
插件管理框架2.2 實現(xiàn)代碼2008-03-03