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;  

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.