Trik membuat splash screen untuk aplikasi anda.

Form design:

• Tambahkan form baru (form ini nantinya menjadi yang splash screen) dengan nama unit: Unit2 dan nama formnya adalah Form2 (dalam contoh ini yang menjadi main form adalah Form1).
• Tambahkan komponen TTimer (Timer1) pada Form2 tadi. Atur intervalnya sesuai keinginan. Misalkan interval pada timer tersebut = 5000, maka splash screen akan ditampilkan selama 5 detik hingga Form utama ditampilkan.
• Atur desain form splash screen sesuai selera masing-masing.
  
  

  Desain

• Edit event Form2 onCreate dan Timer1 onTimer:
  procedure TForm2.FormCreate(Sender: TObject);
  begin
    //Resize form otomatis, sesuai W dan H Image1
    Width:= Image1.Width;
    Height:= Image1.Height;
    Screen.Cursor:= crHourGlass;
  end;
  
  procedure TForm2.Timer1Timer(Sender: TObject);
  begin
    Timer1.Enabled:= False;
  end;
• Langkah terakhir, edit project source anda (menu Project – View Source):
  program Project1;
  
  uses
    Forms,
    Unit1 in 'Unit1.pas' {Form1},
    Unit2 in 'Unit2.pas' {Form2};
  
  {$R *.res}
  
  begin
    with TForm2.Create(Application) do
    begin
      try
        Show;
        Application.Initialize;
        while Timer1.Enabled do Application.ProcessMessages;
      finally
        Free;
      end;
    end;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end.
  

  Output

Download Source Code Delphi - Create Splash Screen File: splash_screen.zip Hits: 545