Delphi完成窗口文字淡入淡出突變效果的辦法。本站提示廣大學習愛好者:(Delphi完成窗口文字淡入淡出突變效果的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是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.