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