Обновление данных для клона компонента ClientDataSet

[bilibian]

Сообщение от Serge_Bliznykov

а разве так не сработает?

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if (Key=VK_RETURN) and (DBGridEh1.DataSet.State=dsEdit) then DBGridEh1.DataSet.Post;
end;

К сожалению для обоих вариантов нет. Только для Enter.

Вот так работает для обоих:

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key=VK_RETURN) then ClientDataSet1.Post;
end;

procedure TForm1.DBGridEh1ColExit(Sender: TObject);
begin
  if ClientDataSet1.State=dsEdit then ClientDataSet1.Post;
end;

[Serge_Bliznykov]

Сообщение от Аватар

Ага, забыл, что по Enter не переходит, Можно по OnKeyPress, исправил в #6

Вот, теперь согласен!

Сообщение от Аватар

PS вообще-то это не есть хорошо, post не должен быть после обработки каждой колонки

и тут полностью согласен! Я постом выше писал тоже самое!

[Serge_Bliznykov]

Вот так работает для обоих:

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key=VK_RETURN) then ClientDataSet1.Post;
end;

а не должно! Если нажать Enter несколько раз подряд, ошибки разве не возникает?!

[bilibian]

Сообщение от Serge_Bliznykov

ошибки разве не возникает?!

Возникает, еще как!

[Serge_Bliznykov]

ну так добавьте туда проверку

if ClientDataSet1.State=dsEdit then

[bilibian]

Работает, спасибо!

[bilibian]

Сообщение от Serge_Bliznykov

А то можно дойти до того, чтобы повесить обработчик на изменение значения и по каждой буковке делать Post в БД. Если в БД логгирование висит, вот цирк будет!

Согласен, но в данном случае в ячейке находится выпадающий список. Пользователь выбирает нужную ему запись и жмет Enter, либо совершает переход к новой строке.