| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
listbox
проходил мимо решил заглянуть © (2007-03-01 17:52:00)Господа проблема конечно бредовая и пустячная, но вот немогу ничего сообразить. Так вот есть ListBox1 в который по ListBox1.Items.Append записываются строчки. Надо чтобы при выборе какойнибудь строчки происходила операция.например
в листбоксе строчки
номер
счет
идентификатор
число
при выборе строчки счет в лабел выводилось "выбрана 2 запись - счет"
begin...end (2007-03-01 20:25:00) [1]with ListBox do
Label.Caption := Format('Выбрана %d-я запись - %s', [ItemIndex + 1, Items[ItemIndex]])
Германн (2007-03-01 20:21:00) [2]
procedure TListBox1.OnClick(Sender: TObject);
begin
if ListBox1.ItemIndex >= 0 then
ShowMessage('выбрана '+IntToStr(ListBox1.ItemIndex+1)+'запись - '+ListBox1.Items[ListBox1.ItemIndex]);
end;
FIL-23 (2007-03-01 20:11:00) [3]
if listbox1.items[listbox1.itemindex]='счет' then showmessage( 'выбрана 2 запись - счет')
kester (2007-03-01 18:45:00) [4]Смотри ListBox1.ItemIndex
| |
