IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  reklamver

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Nisan 2010, 12:52   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Listbox daki itemları teke teker labelda göstermek




Forma ;
1 adet TListbox koyun
1 adet TLabel
1 adet Ttimer

private altında ilk olarak değişkenimizi tanımlıyoruz..

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
private
    { Private 
declarations }
    
integer

timer ın OnTimer olayına aşağıdaki kodu yazıyoruz..

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
procedure TForm1.Timer1Timer(SenderTObject);
var
  
iInteger;
begin
// a değişkenini bir bir arttırıyorz...
inc(a); 

{  for 
to do dögsünü kullanarak i olarak tanımladığımız integer değişkenini sıfır olarak tanımlayıp listbox daki item sayısı kadar
 döngüyü işlemesini söylüyoruz 
..  }

 for 
:= 0 to ListBox1.Items.Count do  
   
begin

a değişkeni listbox daki item sayısından fazla olduğunda program hata vereceği için koşullandırıyoruz durumu
a değişkeni listbox daki item sayısına eşitse
... }
  
if 
ListBox1.Items.Count then  
    begin

a değişkenini 0 (sıfıra eşitle }
    
a:=0

label1in caption değerine listbox da o an A değişkeninin aldığı sayıdaki listbox itemının text özelliğini göster }

    
Label1.Caption := ListBox1.Items.Strings[a]
  
end

yok a değişkenindeki değer listbox daki item sayısını geçmediyse... }
   
 else

label1in caption değerine listbox da o an A değişkeninin aldığı sayıdaki listbox itemının text özelliğini göster }

    
Label1.Caption := ListBox1.Items.Strings[a];
   
end


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Cevapla

Etiketler
daki, göstermek, itemları, labelda, listbox, teke, teker


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Covid-19 yoğun bakım bölümünde skandal olay! Teker teker öldüler NurSima Dünyadan Haberler 0 11 Ağustos 2021 19:26
Meteoroloji uzmanları teker teker konuştu! Marmara ve Ege'de perşembe günü şiddetli yağış bekleniyor CORDON BLEU Güncel ve Son Dakika Haberler 1 21 Temmuz 2021 01:00
Kudüs’te otopark zemini çöktü, araçlar teker teker oluşan çukura düştü NurSima Dünyadan Haberler 0 07 Haziran 2021 21:30
İngiliz mahkumlar teker teker müslüman oluyor Lucifer Haber Arşivi 1 08 Haziran 2010 14:27