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;

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

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