Listbox daki itemları teke teker labelda göstermek ...

Listbox daki itemları teke teker labelda göstermek ...

İlk olarak ne işinize yarayacak ....
Yeni msn messenger da altta kişi listenizdeki kişilerin kişisel iletileri değişerek geçiyor onun gibi bişey yapmak için kullanabilirsiniz..


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


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


private
    { Private declarations }
    a : integer;



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


procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
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 i := 0 to ListBox1.Items.Count - 1 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 a = ListBox1.Items.Count then  
    begin

{ a değişkenini 0 (sıfır) a eşitle }
    a:=0; 

{ label1. in 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

{ label1. in 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;

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

ellerinize sağlık ama bu programları görüntülü olarak yada resimle anlatırsan daha ii olur
@envervolkan eleştiriniz için ilk olarak teşekkür ederim. Daha sonraki derslerimde bunu göz önünde bulundurucam. İyi Çalışmalar.. Ali YEŞİLOÐLU
merhaba hocam size bi sorum olacak benim editten yazdığım bir cümlenein kelimelerin lisboxta yan yana değilde alt alta gelmesi konusunda yardım edebilirmisiniz acaba ???????

Yukarı Git