|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Заполнение ComboBox
Я понимаю, что вопрос довольно простой, но все же. Как сделать, чтобы при редактировании ComboBox его лист заполнялся данными из таблицы которые удовлетворяют Сombobox.Text+'%'. При чем происходило, чтобы это и при удалении символов из СomboBox.
Я написал следуещее: procedure TfrmNewZayavka.ComboBox1Change(Sender: TObject); Var i:Integer; begin Query1.Close; Query1.ParamByName('Name_param').Value:=ComboBox1. Text+'%'; Query1.Open; Query1.First; for i:=1 to Query1.RecordCount do begin Combobox1.Items.Add(Query1.FieldByName('Zakazchik' ).AsString); Query1.Next; end; end; Sql запрос следующий: SELECT Zakazchik FROM "Zakazchik.db" Country WHERE (upper(Zakazchik) Like upper(:Name_param)) но нужно добавить чтобы при каждом вводе лист ComboBox очищался, я пытался Написать ComboBox1.Items.Clear но при этом удаляется текст в ComboBox . И событие ONChange не реагирует на удаление Если можно напишите поподробней. Заранеее блогадарен |
#2
|
||||
|
||||
Цитата:
--------------------------------------------- Программирование - не профессия, а стиль жизни |
#3
|
||||
|
||||
Что за DEV Express? Я применил альтернативный способ, но он мне немного не по душе. ComboBox заменил на Edit, под ним разместил DBGrid и скрыл его. При редактировании Edit фильтруется таблица и если RecordCount>0 тогда показываю DBGrid и прописал нажатие клавиш Enter, стрелок, esc, ну и так далее. Но ведь есть более логичный способ?
|
#4
|
||||
|
||||
Цитата:
- Это библиотека компонентов! Просто супер! Могу прислать!!! --------------------------------------------- Программирование - не профессия, а стиль жизни |
#5
|
||||
|
||||
merdashka@rambler.ru
Если можно с маленькой инструкцией. Буду вечно обязан
|
#6
|
||||
|
||||
и сюда, пожалуйста - decoding@narod.ru
|
#7
|
||||
|
||||
И сюда, если можно:
4kusNick@gmail.com THE CRACKER IS OUT THERE |
#8
|
||||
|
||||
АУ
Библиотекарь заинтриговал и ушел в тень
|
#9
|
||||
|
||||
Цитата:
--------------------------------------------- Программирование - не профессия, а стиль жизни |
#10
|
||||
|
||||
Цитата:
--------------------------------------------- Программирование - не профессия, а стиль жизни |
#11
|
||||
|
||||
Спасибо огромное
|