Delphiindo-ANIMASI FORM DELPHI SAAT RUN

Delphiindo-ANIMASI FORM DELPHI SAAT RUN

Posted by Enriyano Sr on 14:31 with No comments

ANIMASI FORM DELPHI SAAT RUN

LISTING PROGRAM UNTUK ANIMASI FORM

Contoh program berikut ini adalah animasi sederhana untuk mempercantik form saat form akan ditampilkan dan sebelum ditutup. Animasi yang ditampilkan adalah form mengembang (makin membesar) dan saat form akan ditampilkan dan menciut (makin mengecil) saat form akan ditutup. Selain itu, contoh program berikut ini juga mengatur nilai opacity (transparansi/alpha blend) dari form. Form akan makin menjelas saat akan ditampilkan dan akan makin memudar saat akan ditutup.

Desain Program

Jalankan Program Aplikasi Delphi Anda. Tidak perlu mengubah property apapun dari Form1. langsung saja ketikkan kode di bawah ini, kemudian jalankan program.

Code:

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.

Bagaimana tampilan saat form dijalankan? Menarik bukan, cobalah tutup form dengan mengklik tombol close (x)