DBLookupComboBox

nerv

Уважаемые участники форума!
Подскажите, пожалуйста, как использовать компоненту DBLookupComboBox.
На DialogForm поставил DBLookupComboBox1 и Query1.
В Query1 в SQL написано примерно следующее:
select KODTANK, IDENTTANK
from SprTank
where KODOTDEL =:KODOTD
order by IdentTank
У DBLookupComboBox1 проставлены следующие свойства:
ListSource --> Query1
ListField --> IdentTank
KeyField --> KodTank.

Понятно, что поле IdentTank - символьное, KodTank - числовое (первичный ключ).

Вопросов два:
1) Как по выбранному из DBLookupComboBox1 по выбранному полю IdentTank узнать значение поля KodTank? Например но нажатию кнопки вывести это значение в Label1 в том же окне? Обращение типа DBLookupComboBox1.KeyValue или [Query1."KODTANK"] не срабатывает.
2) Как программно заполнить (то есть выбрать) первое значение в DBLookupComboBox1? При вызове Query1.Active := True DBLookupComboBox1.Text равен пустой строке. Необходимо выбрать значение Query1.First.

Заранее спасибо.

Chaosbringer

В DBLookupComboBox1.Text содержиться выбранный код
Переход на запись DBLookupComboBox1.Text:=[Dialogform.Query1."identtank"]
или DBLookupComboBox1.Text:=1;

Neobi

Поскажите пожайлуста у меня на эту запись DBLookupComboBox1.Text:=1; говорит что левая часть выражения не может быть присвоена;
Версия 4.15.10.