--------------------------------------------------------------------
İ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:
private
{ Private declarations }
a : integer;
timer ın OnTimer olayına aşağıdaki kodu yazıyoruz...
Kod:
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;
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:
private
{ Private declarations }
a : integer;
timer ın OnTimer olayına aşağıdaki kodu yazıyoruz...
Kod:
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;
