MEMBUAT TEXS BERJALAN PADA DELPHI 7

MEMBUAT TEXS BERJALAN PADA DELPHI 7

APLIKASI YG DIBUTUHKAN:
1.PANEL
2.LABEL
3.TIMER

LANGKAH PERTAMA
1.Masukan semua aplikasi (PANEL,LABEL,TIMER)
2.Caption Panel kosongkan
3.Label taruh di panel dan beri nama sesuka mu
4.klik 2x pada timer dan masukan SC nya dibawah ini:

 
batas_kiri:=panel1.Left-label1.Width;
  batas_kanan:=panel1.Left+panel1.Width;

  if label1.Left=batas_kiri then
    begin
      label1.Left:=batas_kanan
    end
  else
    begin
      label1.Left:=label1.Left-1;
    end;
timer1.Interval:=10;

5.Tambahkan SC ini di bawah var:

  batas_kiri,batas_kanan:integer;

NOTE : Untuk mengubah kecepatan text, Bisa anda rubah angkanya di :(timer1.Interval:=10;) menjadi 1 atau 100
Makin kecil angkanya makin cepat dan sebaliknya.

Jika Kalian Masih Binggung Silahkan Lihat Tutor Videonya Di bawah Sini

Creat By : Fatkhur rozak