Animasi Form pada Delphi

Topik sebelumnya Topik selanjutnya Go down

Animasi Form pada Delphi

Post by PujanggaBageur on Sun Oct 19, 2008 2:53 pm

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)!

Kode di atas dapat Anda terapkan pada tiap program aplikasi yang Anda buat dengan Delphi, itupun bila perlu.

_________________
Tidak ada yang menarik, datang kemudian hilang, pergi tak kembali.

PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 34
Lokasi : Cirebon

Lihat profil user http://inochi.forumotion.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik