Animasi form delphi

Posted: May 12, 2010 in Contoh Program
Tags:

Disini saya ingin menjelaskan bagaimana cara membuat Animasi Form pada project delphi yang kita buat agar tampilan form tersebut lebih unik dan menarik. Tapi sebelum lanjut buat para master delphi mohon jangan diejek ya tulisanku maklum karena “NewBie”. Sebelum memulai Animasi Project, Open delphi – File New Application setelah itu ketik syntax dibawah ini :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ActnList, ComCtrls, Menus;

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}

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;

end.

Setelah selesai lalu save dan jalankan dengan menekan tombol F9 lihat animasi yang ditampilkan.

Advertisements

Comments are closed.