Форум: "Базы";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизTComboBox и БД Найти похожие ветки
← →
User2 (2003-04-14 17:15) [0]Уважаемые, Мастера!
Помогите написать процедуру. Есть компонент TСomboBox.
Заполняю его в цикле данными запроса:
while …
ComboBox.Items.AddObject(Query.Fields[1].AsString,
TObject(Q.Fields[0].AsInteger));
……
Соответственно : текстовое поле и ключевое ID(integer).
Проблема в следующем.
Нужно программно осуществить выбор и отображение
из списка ComboBox нужного элемента, используя лишь ID,
в данном случае это:
Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);
Для наглядности:
Заполним ComboBox(способом указанным выше) данными:
где:
Текстовое поле ID
Килька 3
Ставрида 5
Минтай 7
Допустим, мне нужно, чтобы в поле ComboBox отобразилось “Минтай”,
причем сделать это нужно лишь программно доступом через ID ( он известен,в данном случае – 7 )
begin
// Огромное спасибо, тому кто не откажет в помощи
end
← →
malkolinge (2003-04-14 17:20) [1]Сделай обычный грид..Выпадающий :)))))))))))
свойсвва
KeyField
ListField
Ищешь в KeyFiled, отображаешь ListField.
и еще глянь статейку
http://www.delphikingdom.com/helloworld/treecombobox.htm
← →
malkolinge (2003-04-14 17:23) [2]А вообще возми TdbLookUpCombo (Стандартный)
← →
User2 (2003-04-14 20:08) [3]А с ComboBox что никак?
Может еще у кого-нибудь будут соображения???
Правда, очень нужно.
← →
Babay (2003-04-15 10:25) [4]В цикле перебираешь комбо и проверяешь что ...
короче так примерно
i:=0;
while i<Combobox.items.count do begin
if Integer(ComboBox.Items.Objects[i])=<твое число> then
begin
ComboBox.itemIndex:=i;
I:=Combobbox.items.count+1;
end;
inc(i);
end;
← →
REA (2003-04-15 10:40) [5]TdbLookUpCombo подходит, но у него глюки были (или я что-то не так делал) - например при прокрутке при нажатии на стрелочки выпадающего списка текст самого ComboBox не менялся, а позиция в Table менялась (сейчас посмотрел в одной программе эффект остался, а в другой уже нет). И при нажатии на Enter (если есть Default button) ComboBox не закрывался, а говорил Cannot focus disabled or invisible window.
Поправьте, если я не прав.
← →
Zacho (2003-04-15 12:06) [6]
> Babay © (15.04.03 10:25)
Зачем так сложно ?
RTFM TStrings.IndexOfObject
P.S. И RTFM Break для понимания, что существует нормальный способ выхода из цикла.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c