Contoh Splash Animasi untuk Delphi

kadang pada saat kita membuat sebuah applikasi kita menginginkan sebuah animasi pada saat looding untuk program atau applikasi yang kita buat....supaya kelihatan menatik...hehehehe...

ini adalah contoh animasi splash screen...pada contoh ini saya membuat dari Delphi...

ini adalah Form untuk animasinya, pada form tersebut saya menggunakan beberapa Label..dibalik label WELCOME masih ada label WELCOME yang sama dengan ukuran dan Font yang sama....tapi tidak terlihat karna berada persis sama dengan tulisan WELCOME yang ada di depannya...apabila program ini di runing baru akan terlihat.. Dan pada gambar dibawah ini adalah hasil dari program tersebut

penasaran ya dengan listing programnya......

tenang bro....saya kasi tau kok listing programnya....

dibawah ini adalah Listing Programnya FULL....

unit UAnimasi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label5: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Timer1: TTimer;
    aab: TLabel;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
aab.Left:=aab.Left+1;
if aab.Left=5 then
   begin
     Label3.Visible:=true;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=6 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=true;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=7 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=true;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=8 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=true;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=9 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=true;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=10 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=true;
     Label13.Visible:=False;
   end;
if aab.Left=11 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=true;
   end;
if aab.Left=12 then
   begin
     Label3.Visible:=False;
     Label6.Visible:=False;
     Label9.Visible:=False;
     Label10.Visible:=False;
     Label11.Visible:=False;
     Label12.Visible:=False;
     Label13.Visible:=False;
   end;
if aab.Left=25 then
   aab.Left:=0
end;

end.