Membuat Animasi Bling pada Form Delphi

Untuk membuat aplikasi kita supaya lebih menarik, anda bisa menambahkan animasi bling pada form yang akan muncul ketika form pertama kali dijalankan dan ketika form ditutup. Yang anda perlukan hanyalah 2 buah komponen Timer, ganti name dari komponen Timer tersebut menjadi TimerOnClose dan TimerOnShow, Enabled menjadi False dan Interval menjadi 1. Setelah itu ketikkan codenya seperti dibawah ini :

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
 
type
TForm1 = class(TForm)
TimerOnShow: TTimer;
TimerOnClose: TTimer;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure TimerOnCloseTimer(Sender: TObject);
procedure TimerOnShowTimer(Sender: TObject);
private
intShow, intClose: Byte;
CloseIt: Boolean;
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
intShow:= 0;
Alphablend:= True;
AlphablendValue:= 0;
CloseIt:= False;
intClose:= 255;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
TimerOnShow.Enabled:= True;
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Alphablend:= True;
TimerOnClose.Enabled:= True;
CanClose:= CloseIt;
end;
 
procedure TForm1.TimerOnCloseTimer(Sender: TObject);
begin
intClose:= IntClose – 5;
AlphablendValue:= intClose;
if intClose <= 5 then
begin
CloseIt:= True;
TimerOnClose.Enabled:= False;
Close;
end;
end;
 
procedure TForm1.TimerOnShowTimer(Sender: TObject);
begin
intShow:= intShow + 5;
AlphablendValue:= intShow;
if intShow >= 255 then
begin
TimerOnShow.Enabled:= False;
Alphablend:= False;
end;
end;
 
end.

hasil nya seperti ini .. .. ! ! !