kayan yazı

[kalevala]

merhaba arkadaşlar delfide yeniyim bi sorum olack form 1 in caption'unu kayan yazı olmasını istiyorum yazı sağa gidip tekradan sola gidecek sonra tekrardan sağ şimdiden sağolun.

[mustafasoy]

internette dolanan delphi7 nin anlatıldığı pdf dosyasında yer alan örnek istediğinizi yapıyor sanırım , kod aşağıda kolay gelsin.

Kod: Tümünü seç

procedure TForm2.Timer1Timer(Sender: TObject);
//Kayan Yazı Oluştur
var
ilk,metin,son:AnsiString;
uzunluk:Integer;
begin
metin:=Form2.Caption;
uzunluk:=Length(metin);//metnin uzunluğunu bul
ilk:=AnsiLeftStr(metin,1);//soldan bir karakteri sök al
son:=AnsiMidStr(metin,2,uzunluk-1);//ik karakterden sonraki tüm karakterler
Form2.Caption:=son+ilk;//yanyana yaz
end;