Tutorial Text Title Bar Berjalan

Title Bar | Tutorial Delphi | Text pada title bar bisa dibuat efek yang kelihatan berjalan. Ini adalah salah satu teknik mempercantik bentuk form aplikasi pada Delphi 7. Komponen yang digunakan dalam aplikasi ini hanya Timer dan Button. Timer digunakan sebagai pewaktu text berjalan, sedangkan Button digunakan untuk menjalankan Timer.

Langkah-langkahnya adalah :

1. Membuat aplikasi baru, tambahkan Timer dan Button.

2. Setting interval Timer menjadi yang diinginkan, ini menentukan kecepatan berjalan text, yang saya pakai 150.

3. Membuat prosedure FormCreate, dengan isi sebagai berikut :

procedure TForm1.FormCreate(Sender: TObject);

begin

             application.Title:='Title Bar Berjalan - Aplikasi Delphi 7.................';

             form1.Caption:=application.Title;

             timer1.Enabled := false;

end;

4. Membuat prosedure OnTimer, dengan isi sebagai berikut :

procedure TForm1.Timer1Timer(Sender: TObject);

var

             judul : string;

begin

            judul := application.Title;

            judul := judul+judul[1];

             judul := copy(judul,2,length(judul)-1);

            application.Title := judul;

             form1.Caption := judul;

end;

5. Lanjutkan dengan membuat prosedure Button OnClick , dengan isi sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

            timer1.Enabled := true;

end;

Langsung running aplikasinya, dan klik button nya, maka text pada title bar akan berjalan. Heeeee.

 

Yaaa…itu hanya sedikit sharing pengalaman, heeeee…Cuma sederhana saja,,,maap yaa…

Salam damai, senajan kenthir nanging kebak pikir

Semoga bermanfaat….