Cara Membuat Label/Teks Berjalan Menggunakan RadioButton di Delphi

Posted by Admin

Salam sahabat KPPDI, pada kesempatan kali ini saya akan membagikan Cara Membuat Label/Teks Berjalan Menggunakan RadioButton di Delphi. Pernahkah sobat delphi melihat aplikasi, dimana pada Menu aplikasi tersebut terdapat sebuah Label atau Teks berjalan atau berkedip.

Bagi para programmer delphi yang sudah mahir, pastinya sangat gampang sekali membuat animasi teks berjalan tersebut.

Terus untuk apa tujuannya? 

Yang pastinya untuk mempercantik tampilan sebuah aplikasi yang kita buat, biar lebih menarik.

Baca Juga: Cara Membuat Form Menu Menarik di delphi 7 

Bagi sobat yang baru belajar pemrograman delphi yang ingin mencoba membuat animasi teks berjalan, Silahkan simak langkah-langkah nya di bawah ini.

1. Buka Aplikasi Delphi sobat baik itu menggunakan delphi 7, 10, Delphi XE, Rio dan yang lainnya.

2. Disain lah Form sobat seperti gambar dibawah ini.

Komponen yang digunakan, 1 buah Label, 1 timer dan 3 buah RadioButton.

3. Masuk pada tempat memasukan coding, lihat di situ ada Implementation, silahkan sobat copas perintah di bawah ini.

var
  frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;
  batas_kiri,batas_kanan:integer;

4. Selanjutnya pada Klik Timer yang berada di form sobat masukkan coding dibawah ini.

procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject);
begin
Label3.Caption:=timetostr(time);
Label4.Caption:=datetostr(now);
  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;
end;

5. Kemudian pada Radiobutton1, Radiobutton2, dan Radiobutton3 copas Coding dibawah ini.

procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject);
begin
  timer1.Interval:=200;
end;

procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject);
begin
  timer1.Interval:=50;
end;

procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject);
begin
  timer1.Interval:=10;
end;

6. Pada FormCreate masukan coding dibawah ini.

procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject);
begin
  radiobutton1.Checked:=true;
end;

7. Terakhir silahkan sobat coba jalankan.
Bagi sobat yang ingin filenya silahkan download dibawah ini.

DOWNLOAD NOW

Sekian dulu artikel tentang Cara Membuat Label/Teks Berjalan Menggunakan RadioButton di Delphi
Semoga Bermanfaat.

Tutorial Pemrograman Delphi

Share This :