Splash Screen Pada Delphi7

 Belajar Membuat Splash Screen
Sebelum memulai Belajar cara mebuat Spalash Screen, Ada baiknya kita mengetahui terlebih dahulu apa itu splash screen. Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi. pada kesempatan ini saya akan membahas bagai mana membuat sebuah splash screen dengan mengunakan Delphi 7
Untuk membuat splash scren tersebut caranya sebagai berikut :

1.Bikin dulu form utamanya.
2.Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3.Tambahkan komponen Timer (terletak pada tab Additional), beri nama dengan Timer1.
4.Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :
Timer1.Enabled := False;
5.Dari menu Project, pilih Options.
6.Pindah ke tab Forms.
7.Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan
digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash
screen ke bagian Available forms.
8.Kalau sudah klik OK.
9.Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form
splash screen sebelum inisialisasi dilakukan.


Untuk lebih jelasnya lihat potongan program berikut ini lalu isikan di form Delphi coba RUN dan lihat hasil kerja kamu :

program Project2;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
unit3 in 'unit3.pas' {Form3};
{$R *.RES}

begin
     From3 := TFrom3.Create(Application);
     From3.Show;
     From3.Update;
     while From3.Timer1.Enabled do      Application.ProcessMessages;
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     From3.Hide;
     From3.Free; // menghapus form3 dr memory
     Application.Run;
end.

Text Berjalan Pada Delphi

Cara membuat text berjalan pada Delphi 7

1.       Bautlah form seperti gambar di bawah ini.

Tambahkan text dan atur ukuran dan jenis font sesuai selera..

2.      Tambahkan button untuk menjalankan text.

3.      Tambahkan source code berikut pada button.

var

  Form1: TForm1;

  jeda:integer=400;

  tulisan:string='SELAMAT DATANG';

  n:integer;

implementation

{$R *.dfm}

procedure Delay(t:LongInt);

var mulai,selesai,k:LongInt;

begin

 mulai:=GetTickCount;

repeat

 Application.ProcessMessages;

 selesai:=GetTickCount;

until (selesai-mulai) >=t;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Label1.Caption:='';

 Delay(jeda);

 for n:=1 to 14 do

 begin

 Label1.Caption:=Copy(tulisan,1,n);

 Delay(jeda);

 end;

4.      Running program dengan menekan F9,dan akan muncul seperti gambar di bawah ini.

Demikian share program dari saya.
ni sayakasih link program nya http://www.4shared.com/file/psNDDTGN/Project1.html 
mohon komentarnya J