Pasar de una Fila a Otra en Un DBGrid al Pulsar Enter

[ecfisa]

Empezado por hondaalberto

Gracias por tu respuesta Casimiro
Este codigo me funciona bien para moverme de una columna a otra cuando preciono enter, pero me falta por hacer que al llegar a la última columna pase a la siguiente fila como cuando presionamos cursor Down que baja a la siguiente línea.

Saludos y gracias por anticipado

Hola.

Proba de esta forma:

Código Delphi [-]
procedure TForm1.DBGridKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    with TDBGrid(Sender) do
      if SelectedIndex < FieldCount-1 then
        SelectedIndex:= SelectedIndex + 1
      else
      begin
        DataSource.DataSet.Next;
        SelectedIndex:= 0;
      end;
end;

Saludos.