Kamis, 13 Desember 2012

Cara Membuat Teks Berjalan di Delphi 7


Kita bisa memperindah tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :
1. Buatlah form . Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.

2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;

3. Setelah selesai deh tinggal jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.
 

Berikut contoh program yang telah saya buat :: Animasi gerak sederhana dengan Borland Delphi 7

ads

Ditulis Oleh : Amaliatul Mujtahidah Hari: 21.01 Kategori:

1 komentar:

  1. Teman - teman kesulitan untuk Belajar Komputer karena kesibukan? kini kami memfasilitasi kursus komputer jarak jauh via online, silahkan kunjungi website kami di asianbrilliant.com, Master Komputer, Kursus Online

    Ayah, Bunda..butuh guru untuk mengajar anak-anak dirumah ? kami memfasilitasi 1000 guru untuk anak-anak ayah dan bunda datang kerumah, silahkan kunjungi website kami di smartsukses.com, Bimbingan Belajar, Les Private

    BalasHapus