Animasi Form

unit Unit1;

interface

uses
SysUtils, Forms, ExtCtrls, Classes;

type
TForm1 = class(TForm)
T1: TTimer;
procedure FormCreate(Sender: TObject);
procedure T1Timer(Sender: TObject);
private
{ Created By : Zephio }
public
{ Title : Anime Form }
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Tag := 40; // Set Form1.Tag = 40, pembatasan Minimal 40, jk dr 0 kelamaan!...
end;

procedure TForm1.T1Timer(Sender: TObject);
begin
Tag := Tag + 1; //kalk 40..300
Width := Tag * 2; //Lebar 300 x 2 = 600
Height := Tag; //Tinggi 300
Caption := 'Time : '+IntToStr(Tag)+' Width : '+IntToStr(Width)+' Height : '+IntToStr(Height);
if Tag = 300 then // jk value Tag(40..300) = 300 (Penentuan value Maximal) maka Timer1 = Disable/Tidak Aktif
begin
T1.Enabled := false;
Caption := 'Anime Form, By : Zephio, Form Status : Ready';
end;

end;

end.