вопрос по dbcomboboxeh

[kate158]

как сделать выпадающий список, используя компонент dbcomboboxeh?
в проекте datasource и datafield выбраны корректно, но показывается только первая запись. как отобразить все?

[Аватар]

EditButton.Style:=ebsUpDownEh
...
procedure TForm1.DBComboBoxEh1ButtonDown(Sender: TObject;
  TopButton: Boolean; var AutoRepeat, Handled: Boolean);
begin
  if TopButton then Query1.Prior else Query1.Next;
end;

[kate158]

средствами самого компонента это можно сделать?

[Аватар]

А я про что? EditButton - свойство компонента. OnButtonDown - его событие

[kate158]

не понимаю код.если компонент выбран, то показана первая запись, если нет, следующая?как был пустой комбобокс, так и остался.

[Аватар]

Для того чтобы вываливался список значений предварительно заполните список в Items, например из той же таблицы. EditButton оставьте по умолчанию. Тогда будет распахиваться и можно выбирать значения. OnButtonDown не нужен в этом случае

[kate158]

мне нужно чтобы в комбобоксе вываливались значения из таблицы в БД, а не то, что в итемс набрано руками =)

[Аватар]

Так и поместите в Items данные из таблицы, к сожалению программно, другого способа нет

[kate158]

вот мой код, но в результате его работы отображается только последняя запись:

procedure TForm1.FormShow(Sender: TObject);
begin
while not
DM.USER.Eof do
begin
ComboBox1.Items.add(DM.USER.FieldByName('FIO').AsString);
DM.USER.Next;
end;
end;

кароче все у меня правильно, теперь отображаются все записи,только нужно не DBComboBoxEh а обычный combobox
Спасибо!=)