22 May, 2011

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.

Artikel Terkait

1 comments:

Muhammad Irvan Hermawan said...

Tips Komputer | Pemrograman Komputer | Desain Grafis | Pemrograman GTK | Pemrograman C | Cara Membuat Sistem Operasi | Pemrograman Assembly | Belajar Assembly

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57

Post a Comment

Template by : kendhin x-template.blogspot.com ==> Editor by : BIK