Tam Sürümü Göster: Kayan Yazı
Sayfalar: 1
Kayan Yazı Gönderen: ALUCARD Tarih: 29 December 2005 19:42:06
Tablonuzun Hareketli Olmasını İstiyorsanız Sizin Çok işinize yarayacak bir Kayan Yazı Örneğini Yazıyorum..
Formunuza bir adet Timer Koyun.Çift clikleyin aşağıdaki kodu yazın.
uses'e "StrUtils" ekleyin
Yukarıdaki Kod'da Formunuzun Properties'den "Caption" kısmına Yazdığınız,Yine Formunuza "Label" hedef göstererek yazılan Yazılarla değişik bir Hava yaratırsınız.Sadece Bunla kalmazsınız!.Proğramınızı Yukarıdaki örnekle İkinci bir Timer'la Düzenleyip Süre Koyabilir.Demo Proğram olduğunu Kayan yazı Şeklinde gösterebilirsiniz,Demo proğramınızı sonlandıracağını Bildirebilir,Proğram ile ilgili bilgileri belli sürelerde gösterebilirsiniz,Proğrama girilen bilgileri belli sürelerde Yine bir Timer'la Otomatik olarak kaydedip, bu kayan yazı örneğiyle Gösterebilirsiniz,Yine Buttonlara Tıklama Hareketlerini Kayan yazı Şeklinde Gösterebilirsiniz.Örnek "Ekran Yenilendi","En son Yapılan İşlemler İptal edildi",....vs vs..
Bakın Kayan yazı Demeyin Neler çıkıyor neler
Ynt: Kayan Yazı Gönderen: uyeadi Tarih: 24 June 2006 16:21:01
teşekkürler
Ynt: Kayan Yazı Gönderen: tilenaz Tarih: 02 November 2006 19:29:59
teşekkürler
Ynt: Kayan Yazı Gönderen: betul_ince Tarih: 27 November 2006 22:25:15
taşekkürler
Ynt: Kayan Yazı Gönderen: karahanli009 Tarih: 02 February 2007 13:01:53
Allah razı olsun.
devamını bekleriz abi...
Ynt: Kayan Yazı Gönderen: madmax254 Tarih: 09 April 2007 08:39:03
teşekkürler
Ynt: Kayan Yazı Gönderen: ReBel PaŞA Tarih: 17 August 2007 23:32:48
güzel paylaşım aga saoal
Ynt: Kayan Yazı Gönderen: mavikiz_23 Tarih: 05 March 2008 11:59:54
BİLGİLERİNİZİ PAYLAŞTIĞINIZ İÇİN TEŞEKKÜR EDERİM.
Tablonuzun Hareketli Olmasını İstiyorsanız Sizin Çok işinize yarayacak bir Kayan Yazı Örneğini Yazıyorum..
Formunuza bir adet Timer Koyun.Çift clikleyin aşağıdaki kodu yazın.
uses'e "StrUtils" ekleyin
:
procedure TForm1.Timer1Timer(Sender: TObject);
var
ilk,metin,son:AnsiString;
uzunluk:Integer;
begin
metin:=Form1.Caption;//Burası da değişebilir.
uzunluk:=Length(metin);//metnin uzunlugu
ilk:=AnsiLeftStr(metin,1);
son:=AnsiMidStr(metin,2,uzunluk-1);
Form1.Caption:=son+ilk;//Burasını Bir Labelde de"Label1.Caption:=son+ilk" Yazdırabilirsiniz.
end;
var
ilk,metin,son:AnsiString;
uzunluk:Integer;
begin
metin:=Form1.Caption;//Burası da değişebilir.
uzunluk:=Length(metin);//metnin uzunlugu
ilk:=AnsiLeftStr(metin,1);
son:=AnsiMidStr(metin,2,uzunluk-1);
Form1.Caption:=son+ilk;//Burasını Bir Labelde de"Label1.Caption:=son+ilk" Yazdırabilirsiniz.
end;
Yukarıdaki Kod'da Formunuzun Properties'den "Caption" kısmına Yazdığınız,Yine Formunuza "Label" hedef göstererek yazılan Yazılarla değişik bir Hava yaratırsınız.Sadece Bunla kalmazsınız!.Proğramınızı Yukarıdaki örnekle İkinci bir Timer'la Düzenleyip Süre Koyabilir.Demo Proğram olduğunu Kayan yazı Şeklinde gösterebilirsiniz,Demo proğramınızı sonlandıracağını Bildirebilir,Proğram ile ilgili bilgileri belli sürelerde gösterebilirsiniz,Proğrama girilen bilgileri belli sürelerde Yine bir Timer'la Otomatik olarak kaydedip, bu kayan yazı örneğiyle Gösterebilirsiniz,Yine Buttonlara Tıklama Hareketlerini Kayan yazı Şeklinde Gösterebilirsiniz.Örnek "Ekran Yenilendi","En son Yapılan İşlemler İptal edildi",....vs vs..
Bakın Kayan yazı Demeyin Neler çıkıyor neler
Ynt: Kayan Yazı Gönderen: uyeadi Tarih: 24 June 2006 16:21:01
teşekkürler
Ynt: Kayan Yazı Gönderen: tilenaz Tarih: 02 November 2006 19:29:59
teşekkürler
Ynt: Kayan Yazı Gönderen: betul_ince Tarih: 27 November 2006 22:25:15
taşekkürler
Ynt: Kayan Yazı Gönderen: karahanli009 Tarih: 02 February 2007 13:01:53
Allah razı olsun.
devamını bekleriz abi...
Ynt: Kayan Yazı Gönderen: madmax254 Tarih: 09 April 2007 08:39:03
teşekkürler
Ynt: Kayan Yazı Gönderen: ReBel PaŞA Tarih: 17 August 2007 23:32:48
güzel paylaşım aga saoal
Ynt: Kayan Yazı Gönderen: mavikiz_23 Tarih: 05 March 2008 11:59:54
BİLGİLERİNİZİ PAYLAŞTIĞINIZ İÇİN TEŞEKKÜR EDERİM.