Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7

Selamat siang agan-agan.Akhirnya posting lagi , yuuhuuu !! Setelah beberapa hari terakhir sakit dan di sibukkan dengan persiapan launching Pujasera Family Kuliner akhirnya saya bisa posting lagi.Dan pada postingan kali ini , saya akan membahas mengenai Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7.

Yuph , efek teks berjalan dengan warnanya yang berubah-rubah.Lumayan sebagai pemanis aplikasi yang anda buat.Buka Delphi 7 anda lalu tambahkan component TPanel dan TTimer pada form1.Ketikan kode berikut pada timer1 event onTimer.

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c : String;
begin
  a := Panel11.Caption; 
  b := copy(a,1,1);
  c := copy(a,2,length(a));  //kode agar teks berjalan
  Panel1.Caption := c+b;

  if Panel1.Font.Color = clblack then
    begin
      Panel1.Font.Color := clgreen;
    end
  else
    if Panel1.Font.Color = clgreen then
      begin
        Panel1.Font.Color := clyellow;
      end
  else
    if Panel1.Font.Color = clyellow then
      begin
        Panel1.Font.Color := clred;
      end
  else
    if Panel1.Font.Color = clred then
      begin
        Panel1.Font.Color := clblue;
      end
  else
    begin
      Panel1.Font.Color := clblack;
    end;
end;

Beres deh.Jalankan aplikasi anda lalu lihat efek teks berjalan pada caption Panel1.Sekian untuk tutorial kali ini , semoga bermanfaat.

Simak Juga Tutorial Lainnya: