Программно заполнить unimDBLookupComboBox и выбрать значение
На форме есть много списков типа TnimDBLookupComboBox. Все они работают в режиме RemoteQuery, т.е.:
RemoteQuery := True;
RemoteQueryRetainResult := True;
При загрузке формы нужно у некоторых списков указать значение по умолчанию, т.е. чтобы, когда форма откроется, у этих списков уже было что-то выбрано и заполнено поле KeyValue. Чтобы потом, это значение KeyValue считать при сохранении объекта в базу.
Как это правильно сделать?
Вот мой код (DoOnNewRecord вызывается в FormSh
Вы можете проанализировать и использовать этот подход:
1.
Uses ..., uniGUIJSUtils;
2.
procedure TUnimLoginForm2.UnimLoginFormCreate(Sender: TObject);
begin
with UnimDBLookupComboBox1, UnimDBLookupComboBox1.JSInterface do
begin
RemoteQuery := True;
RemoteQueryCache := True;
RemoteQueryDelay := 500;
RemoteQueryRetainResult := True;
Mode := umNameValue;
JSConfigObject('store', 'proxy',
[JSObject(
['type', 'ajax',
'url', JSStateme