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用TActionList實現(xiàn)下載文件的方法
這篇文章主要介紹了Delphi用TActionList實現(xiàn)下載文件的方法,需要的朋友可以參考下2014-07-07
delphi 判斷字符串是否包含漢字，正則版與非正則版實現(xiàn)
這篇文章主要介紹了delphi 判斷字符串是否包含漢字，正則版與非正則版實現(xiàn),需要的朋友可以參考下2022-12-12
Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例
這篇文章主要介紹了Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點的方法,需要的朋友可以參考下2014-07-07
今天小編就為大家分享一篇完美解決Indy 編譯提示版本不一致的問題，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2020-02-02
下面小編就為大家?guī)硪黄狣elphi提取PDF文本實例。小編覺得挺不錯的，現(xiàn)在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-06-06
Delphi隱藏TPageControl的標(biāo)簽實例介紹
件是一組頁面集,用于構(gòu)造一個多頁對話框,它顯示多個交互頁(TTabSheet 對象)，接下來為大家介紹下Delphi隱藏TPageControl的標(biāo)簽方法2013-04-04
插件管理框架2.2 實現(xiàn)代碼2008-03-03
內(nèi)容: INI文件在系統(tǒng)配置及應(yīng)用程序參數(shù)保存與設(shè)置方面，具有很重要的作用，所以可視化的編程一族，如VB、VC、VFP、Delphi等都提供了讀寫INI文件的方法，其中Delphi中操作INI文件，最為簡潔，這是因為Delphi6.0提供了一個TInifile類，使我們可以非常靈活的處理INI文件。2008-03-03
delphi設(shè)置開機自動啟動函數(shù)具體實現(xiàn)
有些程序要設(shè)置為開機啟動，所以自己寫了個函數(shù)方便以后使用，實現(xiàn)比較簡單，感興趣的朋友可以參考下哈2013-06-06