Membuat Label Berjalan di Delphi #218

andrypein.net : Bikin label berjalan dengan delphi, ya kali ini post bukan karena gada ide lain. ?

Karena lagi bikin sky.fm portable dulu soalnya bos, post iseng sekarang akan mendemonstrasikan contoh label berjalan dengan timer dan spinedit sebagai pengatur spid nya.

Bahannya seperti ini gan :

Hanya dua event saja dalam kodingan program ini, di timer dan spinedit onchange saja.

procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
  timer1.Interval:=spinedit1.Value*100;
end;

Sedangkan untuk event on timer nya adalah :

procedure TForm2.Timer1Timer(Sender: TObject);
var
 text : string;
begin
 text:=label1.Caption;
 label1.Caption:=copy(text,2,length(text)-1)+copy(text,1,1);
end;

Dan hasil akhir nya akan seperti ini :

Okeh, donlod saja label berjalan di delphi nya hanya di blog aing gan.

Download

*AFK