|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите с ListBox'ами
Доброго времени суток! Помогите, пожалуйста, по такому вопросу:
есть ListBox1 и ListBox2. При нажатии на элемент ListBox1 должен формироваться соответствующий список элементов в ListBox2. Есть даже код, который не работает, а должен: Код:
// процедура обновления списка направлений procedure RefreshListNaprav; begin with Form_Knigi do begin NapravQuery.Active:=False; NapravQuery.ParamByName('NAZV_DISCIPLINI').AsInteger:=StrToInt(NapravListBox1.Items[NapravListBox1.ItemIndex]); NapravQuery.Active:=True; NapravQuery.First; case NapravQuery.RecordCount of 0 : begin NapravListBox.Enabled:=False; NapravListBox.Clear; NapravListBox1.Clear; end; else begin NapravListBox.Enabled:=True; NapravListBox.Clear; NapravListBox1.Clear; while not NapravQuery.Eof do begin NapravListBox1.Items.Add(NapravQuery.FieldValues['KOD_NAPRAVLENIYA']); NapravQuery.Next; end; NapravListBox.ItemIndex:=0; NapravListBox1.ItemIndex:=NapravListBox.ItemIndex; // обновление списка групп направлений RefreshListDis; end; end; end; end; |