Вывод данных из столбца Grid-а в ComboBox при запрещенном редактировании в нем

@Pretty_Girl · Регистрация: 10.11.2015

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Ранее с подобной проблемой не сталкивалась, поэтому прошу сильно не ругаться если вдруг написанный код покажется очень глупым...В Grid имеются данные из таблицы, на форме имеется ComboBox в свойстве Style у него выставила csDropDownList, так как редактирование крайне нежелательно в моем случае. Необходимо по клику в Grid чтобы данные из него выводились в соответствующие поля на форме (это сделано), но в ComboBox при запрещенном редактировании данные в него не выводятся, очень прошу помочь хоть каким-нибудь способом... буду рада любому предложенному рабочему решению, вот, собственно, попытка написания моего кода этой части...по клику в грид

Delphi
1
2
3
4
5
if ComboBox1.text='Зачисление' then begin ComboBox1.itemIndex:=0;
 ComboBox1.text:=ADOQuery2.FieldByName('soderzh').AsString; end;
 if ComboBox1.text='Зачисление на 1 курс' then begin ComboBox1.itemIndex:=1;
 ComboBox1.text:=ADOQuery2.FieldByName('soderzh').AsString; end;
 if ComboBox1.text='Зачисление переводом' then begin ComboBox1.itemIndex:=2;

Пробовала и так, но все не то...

Delphi
1
 ComboBox1.items.strings:=ADOQuery2.FieldByName('soderzh').AsString;

Скандербег · 15.02.2018, 00:44

В комбобоксе при запрете редактирования текста возможен только выбор из списка, который заранее в нем сформирован.
Впрочем, даже когда редактирование разрешено, то через присвоение строки свойству Text тоже ничего не произойдет, т.к. строки должны быть сформированы заранее (вернее, свойство Text изменится, но в список эта строка не попадет).

Второй постулат для комбобокса: ItemIndex и Text - это взаимно дополняющие два свойства. Т.е. при изменении
свойства ItemIndex, меняется и текст и наоборот, при изменении текста (выбором из списка) автоматом меняется и индекс.

Чтобы в списке строк комбобокса найти индекс нужной строки, есть его метод IndexOf, который по переданной в него строке ищет её в списке и если находит возвращает значение индекса (номер строки в списке, начиная с нуля), если не находит возвращает "-1".

Delphi
1
2
3
4
5
6
7
8
  I := ComboBox1.Items.IndexOf('Зачисление');
  if I > -1 then //такая строка в списке комбобокса есть и в переменной I находится ее индекс
    ...
  else  //строка в комбобоксе не найдена.
    ...
 
    //Можно найти индекс строки и так:
  I := ComboBox1.Items.IndexOf(ADOQuery2.FieldByName('soderzh').AsString);

Исходя из этих постулатов и надо строить свое отношение с комбобоксом.

Добавлено через 6 минут
Для программного добавления строк в комбобокс используют метод Add:

Delphi
1
2
3
  I := ComboBox1.Items.IndexOf(ADOQuery2.FieldByName('soderzh').AsString);
  if I = -1 then //добавление строки, если такой нет в комбобоксе
    ComboBox1.Items.Add(ADOQuery2.FieldByName('soderzh').AsString)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .