procedure TfMain.DBGridEh1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = vk_return) then begin if (sender as TDBGridEh).DataSource.DataSet.State in [dsBrowse] then (sender as TDBGridEh).DataSource.DataSet.FieldByName((sender as TDBGridEh).SelectedField.FieldName).FocusControl; end; end;
procedure TfMain.DBGridEh3ColEnter(Sender: TObject); begin inherited; if (sender as TDBGridEh).DataSource.DataSet.State in [DsEdit, DsInsert] then (sender as TDBGridEh).DataSource.DataSet.Fields[(sender as TDBGridEh).SelectedField.Index].FocusControl; end;