- 27 Ocak 2007
- 3,176
- 1
- 577
LIST BOX
Alt alta satirlarin girilebildigi bir kontrol elemanidir. PROPERTILERI:
1)Listbox1.items: Satirlarla ilgili tüm islemllerin yapilabilecegi bir özelliktir. Bilgileri eklemek için Object Inspector'denItems özelliginin yanindaki
butona tiklanir. Gelen pencereden Listbox' ta görünmesini istedigimiz bilgileri yazariz.
dfvdfk1)Listbox1.items: Satirlarla ilgili tüm islemllerin yapilabilecegi bir özelliktir. Bilgileri eklemek için Object Inspector'denItems özelliginin yanindaki
Kod:
[B]procedure TForm1.Button1Click(Sender: TObject);[/B][SIZE=2]
[B]begin[/B]
ListBox1.Items.[B]Add[/B]('site yapimcisi');
ListBox1.Items.[B]Add[/B]('Yavuz YIGITOGLU');
[/SIZE][B][SIZE=2]end;[/SIZE][/B]
Kod:
[B]procedure TForm1.Button1.Click(Sender :TObject);
begin
[/B][SIZE=2]listbox1.Items.[B]Clear;[/B]
[B]end;[/B] [/SIZE]
listete içerisine yeni satir eklememek icin kullanilan bir medotdur Asagidaki örnegi inceleyelim
Kod:
[B]procedure TForm1.Button1Click(Sender: TObject);
var[/B][SIZE=2]
s,i:integer;
[B]begin[/B]
s:=ListBox1.Items.Count; // eleman sayisini velir
[B]for[/B] i:=0 to s-1 [B]do[/B]
[B]begin[/B]
[B]if[/B] edit1.text=ListBox1.items[i] [B]then[/B] //varsa
[B]begin[/B] showmessage('Zaten var'); exit[B] end[/B];
[B]end;[/B]
ListBox1.Items.Append(edit1.Text);
[/SIZE][B][SIZE=2]end;[/SIZE][/B]