|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Заполнение LookupComboBox в run time
В OnChange:
Код:
var tmp: string; begin if cxLookupComboBox1.EditText = '' then exit; tmp := Copy(cxLookupComboBox1.EditText, 1, cxLookupComboBox1.SelStart); with ADOQuery1 do begin Close; if tmp <> '' then begin sql.Clear; sql.Add('select top 10 * from streets where street like ''' + tmp + '%'''); open; end; end; end; грид справа на рисунке для наглядности. |