Скачать: CL | DM;

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

← →
проходил мимо решил заглянуть   (2007-03-01 17:52) [0]

Господа проблема конечно бредовая и пустячная, но вот немогу ничего сообразить. Так вот есть ListBox1 в который по ListBox1.Items.Append записываются строчки. Надо чтобы при выборе какойнибудь строчки происходила операция.например
в листбоксе строчки
номер
счет
идентификатор
число

при выборе строчки счет в лабел выводилось "выбрана 2 запись - счет"

---

← →
kester ©   (2007-03-01 18:45) [1]

Смотри ListBox1.ItemIndex

---

← →
FIL-23 ©   (2007-03-01 20:11) [2]

if listbox1.items[listbox1.itemindex]="счет" then showmessage(  "выбрана 2 запись - счет")


---

← →
Германн ©   (2007-03-01 20:21) [3]

procedure TListBox1.OnClick(Sender: TObject);
begin
 if ListBox1.ItemIndex >= 0 then
   ShowMessage("выбрана "+IntToStr(ListBox1.ItemIndex+1)+"запись - "+ListBox1.Items[ListBox1.ItemIndex]);
end;

---

← →
begin...end ©   (2007-03-01 20:25) [4]

with ListBox do
 Label.Caption := Format("Выбрана %d-я запись - %s", [ItemIndex + 1, Items[ItemIndex]])

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c