Программно заполнить unimDBLookupComboBox и выбрать значение
На форме есть много списков типа TnimDBLookupComboBox. Все они работают в режиме RemoteQuery, т.е.:
RemoteQuery := True;
RemoteQueryRetainResult := True;
При загрузке формы нужно у некоторых списков указать значение по умолчанию, т.е. чтобы, когда форма откроется, у этих списков уже было что-то выбрано и заполнено поле KeyValue. Чтобы потом, это значение KeyValue считать при сохранении объекта в базу.
Как это правильно сделать?
Вот мой код (DoOnNewRecord вызывается в FormSh
Попробуйте этот код:
procedure TMainmForm.UnimFormReady(Sender: TObject);
var
val: string;
begin
val := '... Значение ...';
with UnimDBLookupComboBox1.JSInterface do
begin
JSCode(#1'.store.add({"id":0, "val":"'+ val +'"});');
JSCall('setValue', [val]);
end;
end;
