Silinder Springs

Hai sobat blogger...

Ehmm... kali ini gw mau nge-share tentang animasi form pada delphi 7.
intinya hampir sama kayak Animasi form pada vb6 yang kemaren, namun codingnya jelas beda antara vb dan delphi.

Oke,.. ndak perlu panjang lebar penjelasannya,. langsung aja dech bikin coding nya ...

 Animasi Form Ketika Load


procedure TForm1.FormCreate(Sender: TObject);
begin
 AnimateWindow(Handle,1000,AW_BLEND);
end;

Pada  AnimateWindow(Handle,1000,AW_BLEND);
AW_BLEND bisa diganti dengan beberapa pilihan animasi diantaranya :
// AW_CENTER
// AW_HOR_POSITIVE
// AW_HOR_NEGATIVE
// AW_VER_POSITIVE
// AW_VER_NEGATIVE

contoh Projectnya bisa didownload disini

 Animasi Form OnCreate dan OnClose


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. 

contoh Projectnya bisa didownload disini