soldan sağa kayan yazı
Kod: Kodu kopyalamak için üzerine çift tıklayın!
var
metin:string=('1234567890...');
str :string=('1234567890...');
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
metin:=str;
for i:=1 to length(metin)+1 do
begin
str[i+1]:=metin[i];
str[1]:=metin[i-1];
end;
caption:=str;
end;
__________________
SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.