Animasi Form Delphi

Animasi form delphi ini hanya sekedar untuk memperkeren form ketika form dipanggil, biar tidak bosan dengan yang biasa-biasa saja. Konsepnya sih sederhana, sekedar perulangan lebar form saat dipanggil.

Langsung saja masukkan kode berikut pada event OnActive pada Form :

procedure TForm1.FormActivate(Sender: TObject);<br />var<br />ani:Integer;<br />an:Integer;<br />begin<br />Form1.Width:=50;<br />Form1.Height:=50;<br />ani:=50;<br />an:=50;<br />repeat<br />ani:=ani+1;<br />Form1.Width:=ani;<br />until ani>=700;<br />repeat<br />an:=an+1;<br />Form1.Height:=an;<br />until an>=500;<br />end;

Source Code Lengkap :

unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br />  Dialogs;<br /><br />type<br />  TForm1 = class(TForm)<br />    procedure FormActivate(Sender: TObject);<br />  private<br />    { Private declarations }<br />  public<br />    { Public declarations }<br />  end;<br /><br />var<br />  Form1: TForm1;<br /><br />implementation<br /><br />{$R *.dfm}<br /><br />procedure TForm1.FormActivate(Sender: TObject);<br />var<br />ani:Integer;<br />an:Integer;<br />begin<br />Form1.Width:=50;<br />Form1.Height:=50;<br />ani:=50;<br />an:=50;<br />repeat<br />ani:=ani+1;<br />Form1.Width:=ani;<br />until ani>=700;<br />repeat<br />an:=an+1;<br />Form1.Height:=an;<br />until an>=500;<br />end;<br /><br />end.

Program + Source Code dapat di download di SINI