Gönderen Konu: Listbox daki itemları sırayla label da gösterme (Okunma sayısı 1005 defa)

barutali · « : 03 Temmuz 2009 01:08:44 »

İ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...

Kod: Delphi

  private
    { Private declarations }
    a : integer;
 

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

Kod: Delphi

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;
 

Kodbank İndir

Gönderen Konu: Listbox daki itemları sırayla label da gösterme (Okunma sayısı 1005 defa)

barutali

Listbox daki itemları sırayla label da gösterme