Timer İle Formun Caption Özelliğindeki Yazıyı Kayan Yazı Haline Getirmek

Timer bileşeni kullanılarak formun caption özelliğine yazılan yazının sabit kalması yerine kayan yazı şeklinde olmasını sağlayabiliriz.

Bunun için forma 1 tane timer bileşeni eklememiz yeterli.

1. procedure TForm1.Timer1Timer(Sender: TObject);
2. var
3.     a,b: String;
4. begin
5.     a := copy(form1.Caption,1,1); // caption’ın ilk karakterini kopyalar
6.     b := copy(form1.Caption,2,length(form1.caption)); // caption’ın ilk karakterden sonraki kısmını kopyalar
7.     form1.Caption := b+a; // kopyalanan metinleri ters bir şekilde birleştirir
8. end;