- Buka Delphi
- Buat sebuah project baru atau buat sebuah form baru jika anda sebelumnya telah membuat aplikasi dan ingin ada terapkan.
- Buat sebuah label dan Timer letakkan pada Form 2
- Klik Label dan Pada object inspector pilih propertis > caption > ganti dengan nama Helloo (Form 2)
- Klik pada menu View > klik view source
- Hapus kode seperti dibawah ini yang ada pada source code project tersebut atau beri tanda " // " disetiap kode tersebut untuk mengatasi jika kode splash screen mengalami error dan akn dikembalikan seperti semula.
========
Application.Initialize;
Application.Title := 'Project1';
Application.CreateForm(TForm1, Form1);
Application.Run;
==========
- Ganti kode / source code pada nomor 6 dengan kode dibawah ini
=========
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
while Form2.Timer1.Enabled do // running splash
Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2.Hide;
Form2.Free;
Application.Run;
=========
- Run
Posting Komentar