Animasi Form Pop Up pada Delphi

Pada contoh aplikasi program berikut ini hanyalah contoh sederhana animasi pada form delphi. Gambaran untuk animasi ini adalah pada saat program di runing maka form akan tampil dari kecil semakin membesar. Sedangkan pada saat di close maka dari besar form akan mengecil dan menghilang. bagaimana, menarik bukan? untuk lebih jelasnya silahkan lihat source kode dibawah ini : notebook

Langkah - langkahnya :

1. Kopi source kode dibawah ini
2. Buka aplikasi delphi anda notebook
3. Double klik pada form1 notebook
4. Tekan Ctl+A pada keyboard anda lalu tekan Ctrl+V notebook
5. Jalankan Program Aplikasi Delphi Anda. Tidak perlu mengubah property apapun dari Form1. notebook

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants,

Classes, Graphics, Controls, Forms,Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject;

var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//================Batas Awal Kode Utama===================

Procedure Animasi(Pilih : Byte);

Var i, j, BandingLebar, BandingTinggi,

myWidth, myHeight: LongInt;

Const Pembagi : LongInt = 200;

begin

myWidth := Form1.Width ;

myHeight := Form1.Height;

Form1.AlphaBlend := True;

BandingLebar := myWidth Div Pembagi;

BandingTinggi := myHeight Div Pembagi;

For i := 1 To Pembagi Do

Begin

If Pilih = 1 Then

Begin

Form1.AlphaBlendValue := i + 55;

Form1.Width := BandingLebar * i;

Form1.Height := BandingTinggi * i;

End

Else

Begin

Form1.AlphaBlendValue := 255 -(i + 55);

Form1.Width := BandingLebar * (pembagi - i);

Form1.Height := BandingTinggi * (pembagi - i);

End;

Form1.Left := (Screen.Width - Form1.Width) div 2;

Form1.Top:=(Screen.Height - Form1.Height) div 2;

Form1.Show;

End;

End;

//--------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);

begin

Animasi (1);

end;

//---------------------------------------------

procedure TForm1.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

Animasi (2);

end;

//===============Batas Akhir Kode Utama====================

end.

Semoga Bermanfaat, Sumber Artikel : inochi.forumotion.