TUTORIAL MEMBUAT SPLASH SCREEN DELPHI 7

  1. Buka Delphi
  2. Buat sebuah project baru atau buat sebuah form baru jika anda sebelumnya telah membuat aplikasi dan ingin ada terapkan.
  3. Buat sebuah label dan Timer letakkan pada Form 2 
  4. Klik Label dan Pada object inspector pilih propertis > caption > ganti dengan nama Helloo (Form 2) 
  5. Klik pada menu View > klik view source
  6. 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;
    ==========
  7. 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;
    =========
  8. Run

Post a Comment

Lebih baru Lebih lama