Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7

Hay,,,hay,, agan-agan.Akhirnya posting lagi , yuuhuuu !! 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.

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;  

view plainprint?

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;