ListBox ?

← →
TriX © (2004-09-12 19:05) [0]

мне нужно сделать так
чтоб при выделении строки в ListBox с текстом qwerty программа закрывалась.
и как узнать сколько всего строк в ListBox..

← →
Семен Сорокин © (2004-09-12 19:12) [1]

1. ListBox.OnClick
2. ListBox.Items.Count

← →
Alx2 © (2004-09-12 19:14) [2]

ListBox.Count - количество
With ListBox do Items[ItemIndex] - текущая строчка

отмена допер

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=inttostr(listbox1.count);
end;

procedure TForm1.click(Sender: TObject);
begin
if listbox1.items[listbox1.itemindex]="qwerty" then close
end;

end.

ListBox ? Найти похожие ветки