Cara Membuat Tulisan Berjalan di Delphi

Hai Kawan-kawan Anteater 175.
Selamat bergabung di Blog Anteater 175.
Di sini saya akan meposting cara membuat tulisan berjalan di Delphi.
tulisan berjalan ini sangat berguna saat kita membuaat program dengan delphi, tulisan berjalan ini bisa untuk memper indah form-form, bisa untuk membuat informasi, pesan, catatan dll.
baik lah kita langsung sajah ke lokasi pembuatan effek tulisan berjalan dengan delphi.

yang pertama kita harus mendesain form seperti gambar di bawah/ menambahkan berbagai komponen-komponen.

oke jika anda belum bisa mendesainnya, gak papah beda seperti gambar di atas juga, sesuai selera anda ajah.

komponen/toolbar yang di butuhkan yaitu : >. 1. Timer (ada di bagian System);

                                                                 >. 1. Panel (ada di bagian Standard);

                                                                 >. 1. Label (ada di bagian Standard);

*yang pertama taruh timer di form; ingat intervalnya di ubah dari 1000 ke 50 ajah, di bagian propertisnya

*kedua taruh juga Panel di form, atur samakan panjangnya dengan form;

*terus yang ketiga letakan Label 1 di dalam Panel 1, edit ukuran font nya, di object Inspector, propertis;

jika sudah mengaturnya, kita langsung sajah dalam koding mengkoding, supaia Labelnya/tulisannya bisa berjalan,

klik 2x di Timer1, taruhkan/tulis koding dibawah ini. 

  # yang ditulis kodingnya yang berwarna merah sajah.. kalu yang procedure nya itu jangan di tulis karena itu   

    secara otomatis akan muncul sendirinya saat kita mengklik 2x pada komponennya.                                   

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Label1.Left:=Label1.Left - 1;

    If Label1.Left+Label1.Width <=0 then 

       Label1.Left:=Panel1.Width;

end;

Baik jika sudah selesai mengkoding di atas, coba anda RUN hasilnya gimana beres kan.

oke cukup sekian dulu pembuatan effek Tulisan Berjalan di delphinya.

saya Farid Edo  (Admin)

mengucapakan selaman Mencoba??

Terimakasih telah berkunjung ke Blog Anteater 175 ini.

 *mohon maaf jika ada kesalahan dalam kata-katanya. saya sendiri juga baru belajar tentang semua ini..?

ANTEATER 175