gambar diatas adalah screen shot dari program yang akan kita bahas kali ini.
langsung saja ke script
|
procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c: string;
begin
a:= Label1.Caption;
b:= copy(a,1,1);
c:= copy(a,2,length(a)); // kode agar teks berjalan
Label1.Caption:= c + b;
if Label1.Font.Color= clgreen then
Label1.Font.Color:= clBlack
else
if Label1.Font.Color= clBlack then
Label1.Font.Color :=clYellow
else
if Label1.font.Color=clyellow then
Label1.Font.Color:=clred
else
if Label1.font.Color=clred then
Label1.Font.Color:=clblue
else
Label1.Font.Color:=clYellow;
end;
|
