Teks Berjalan ( Running Text ) Sederhana

Halo sahabat pascal, begitulah sebutan untuk temen temen yang menyukai bahasa pemrograman pascal baik menggunakan IDE Delphi, Lazarus, dll. Hehehehe . Oke sekarang saya akan membahas tentang bagaimana cara membuat teks berjalan sederhana pada Delphi. Saya menggunakan IDE Delphi 7. Langkah - langkah sebagai berikut :

1. Buka Delphi 
2.  Isikan pada form yaitu

• Label caption
• Panel
• Timer dengan properties interval sebanyak 1
3. Klik 2 kali pada timer kemudian ketik code di bawah ini :

   begin
   
   label1.Left := label1.Left-1;
   IF (label1.Left + label1.Width) <= 0 THEN
   label1.Left := panel1.Width;
   
   end;

   
   
4. Kemudian pada form klik 2 kali pada form create kemudian ketik codes di bawah ini :

   begin
   
   panel1.DoubleBuffered := true;
   
   end;

   
   
5. Simpan terlebih dahulu sebelum di compile kemudian compile .

Nah , demikian yang bisa saya sampaikan , sekian dan terima kasih.

Teks Berjalan ( Running Text ) Sederhana 2015-05-22T21:08:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown