Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7



 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.


  1. procedure TForm1.Timer1Timer(Sender: TObject);  
  2. var a,b,c : String;  
  3. begin  
  4.   a := Panel11.Caption;   
  5.   b := copy(a,1,1);  
  6.   c := copy(a,2,length(a));  //kode agar teks berjalan  
  7.   Panel1.Caption := c+b;  
  8.   
  9.   if Panel1.Font.Color = clblack then  
  10.     begin  
  11.       Panel1.Font.Color := clgreen;  
  12.     end  
  13.   else  
  14.     if Panel1.Font.Color = clgreen then  
  15.       begin  
  16.         Panel1.Font.Color := clyellow;  
  17.       end  
  18.   else  
  19.     if Panel1.Font.Color = clyellow then  
  20.       begin  
  21.         Panel1.Font.Color := clred;  
  22.       end  
  23.   else  
  24.     if Panel1.Font.Color = clred then  
  25.       begin  
  26.         Panel1.Font.Color := clblue;  
  27.       end  
  28.   else  
  29.     begin  
  30.       Panel1.Font.Color := clblack;  
  31.     end;  
  32. end;  

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

0 Response to " Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!