| Boşluklu Kayan Yazı Delphi
Kod: Kodu kopyalamak için üzerine çift tıklayın! procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.interval:=250;
caption:='deneme'+' ***... burası boşluk uzunluğu bunu kendiniz ayarlaya bilirsiniz ...*** ';
end;
procedure tform1.timer1timer(sender: tobject);
begin
caption:=copy(caption,2,length(caption)-1)+ caption[1];
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.
|