Rabu, 25 Februari 2009

Udah pada tau Splash screen gag?????Splash Screen adalah tampilan sementara…untuk sbuah Contoh saat anda menjalankan Delphi akan tampil sebuah Jendela dan baru masuk ke Jendela Utama.Nah sekarang kita akan coba membuatnya saya mau kasih tau gimana cara membuat SplashScreen.
Ok langsung aja buka celana masing2!eh… maksud saya Delphi nya masing2…Ikuti langkah berikut!!!Buat 2 buah Form,,kalo ada yang blm tau cara nya,wah Kebangetan!!!he..caranya klik File-New-Form.
terus klik Project-Option

Lalu klik Form2 kemudian klik “>” Gantilah Caption Form2 menjadi FrmSplash dan Form1 menjadi FrmUtama.nah..kalo udah Letakan Component Timer di Form2 yang berada di palette System aturlah Interval sesuai keinginan anda Double klik component Timer ketik Code berikut
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
End;
,letakan komponen Image yg berada di palette Additional dg properties Stretch:=true dan Allign:=alClient lalu Load Gambar yang anda inginkan..truz pencet
Ctrl+F12..pilih Project1 lalu Ok!

sekarang Project1.berada di Code Editor..
Masuk ke Tab Project1 gantilah
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Menjadi::::
Begin
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
while Form2.Timer1.Enabled do
Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2.Hide;
Form2.Free; // menghapus form splash scren dr memory
Application.Run;
End;
Letakan komponen Buton pada Form1 double klik truz ketik Application.terminate;
Pencet dech F9!!











3 comments:

Posting Komentar

Katakan Sesuatu