Обновить DBLookUpComboBox при скролинге таблицы

Delphi , Компоненты и Классы , Списки

Автор: Stone

Есть табличка, к ней привязан TDBLookupComboBox. Значение в нем отображается только после клика мышкой. Как заставить его перерисоваться после изменения текущей записи в таблице, к которой он привязан?

DBLookupComboBox.KeyValue := Table1.FieldByName('Field1').Value;

Переопределить комбобокс для обновления при прокрутке таблицы можно с помощью события OnSelect ячейки таблицы и установки свойства Row на текущий индекс строки.

Пример кода:

procedure TForm1.Table1SelectCell(Sender: TObject; Field: TField; Value: OleVariant);
begin
  DBLookUpComboBox.KeyValue := Table1.FieldByName('Field1').Value;
end;

В этом примере Table1SelectCell - это обработчик события OnSelect ячейки таблицы. Когда пользователь выбирает новую строку, событие вызывается, и оно обновляет свойство KeyValue комбобокса DBLookUpComboBox значением поля 'Field1' текущей строки.

Также можно использовать событие OnScroll таблицы для обновления комбобокса:

procedure TForm1.Table1Scroll(Sender: TObject);
begin
  DBLookUpComboBox.KeyValue := Table1.FieldByName('Field1').Value;
end;

В этом случае событие Table1Scroll вызывается каждый раз, когда пользователь прокручивает таблицу, и оно обновляет свойство KeyValue комбобокса DBLookUpComboBox значением поля 'Field1' текущей строки.

Обратите внимание, что вам нужно адаптировать код в соответствии с вашими конкретными потребностями и структурой базы данных.

Обновить состояние DBLookUpComboBox при изменении текущей записи в таблице, к которой он привязан, можно установкой свойства KeyValue в коде программы.

Комментарии и вопросы

:: Главная :: Списки ::