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

[hondaalberto]

Buenos dias amigos

Tengo un DBGRID que utilizo para cargar insertar los Productos de Una factura de Ventas y necesito que luego de insertar una Nueva linea al pusar enter pase a la Siguiente Fila.

Al igual que si estoy navegando los Registros al pulsar enter vaya pasando de una colmna a otra en la misma fila y al llegar a la ultima Columna pasa a la siguiente Fila.

Tengo las Siguientes Columnas:
0: Fecha
1: Producto No.
2: Descripción
3: Cantidad
4: Precio
5: Descuento
6: Iva

Muchas Gracias por anticipado por la ayuda que puedan brindarme y por su valioso tiempo invertido.

[hondaalberto]

Navegando por la Web me he encontrado el Siguiente procedimiento el cual me funciona para cuando preciono enter el foco va pasando de un columna a otra hasta llegar al final de la línea.

Pero aún me falta que al llegar a la última columna pase a la próxima filla con el foco en la primera columna no que vuelva a la primera columna de la misma fila en la que estoy actualmente navegando.

Aqui les dejo el procedimiento:

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
{ Manejador del evento OnKeyPress del Form } 
{ También hay que establecer la propiedad KeyPreview del Form a True } 
begin 
  if Key = #13 then                        { si es la tecla  } 
    if not (ActiveControl is TDBGrid) then { si no es un TDBGrid } 
    begin 
      Key := #0;                           { nos comemos la tecla } 
      Perform(WM_NEXTDLGCTL, 0, 0);        { vamos al siguiente control } 
    end 
    else 
      if (ActiveControl is TDBGrid) then   { si es un TDBGrid } 
        with TDBGrid(ActiveControl) do 
          if selectedindex < (fieldcount -1) then 
            selectedindex := selectedindex +1 
          else 
            selectedindex := 0; 
end;

Fuente de los Datos: http://www.terra.es/personal/alksoft...cos/trucos.htm

[Casimiro Notevi]

Sí, en principio ese código te viene bien para lo que quieres hacer.

[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

[Casimiro Notevi]

Bueno, básicamente tienes que controlar que estás en el último campo y entonces bajar al siguiente registro y posicionarte en el primer campo.
Tendrás que controlar que exista el registro siguiente para crear uno nuevo o simplemente editar el que existe.
Esto de hacer una BUENA edición en un dbgrid es realmente muy complejo si se quiere hacer bien, surjen multitud de imprevistos, ya lo verás, lo sufrirás bastante.

Me parece recordar que el compañero José Luis Garcí puso un código para controlar este tipo de cosas, que lo mismo te puede servir, adaptándolo.

[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.