Текущий архив: 2007.03.25;
Скачать: 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 вся ветка
Текущий архив: 2007.03.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
