Autoavanzar celdas en un grid

[GustavoCruz]

Hola amigos del foro, pues la pregunta lo dice todo...

Me gustaría saber cómo se puede hacer para que al momento de presionar enter en una celda, automáticamente pase a la siguiente...

he visto que las grillas de Lazarus lo hacen y sería bueno que las grillas de delphi también lo hicieran.

De antemano mil gracias por vuestro tiempo





Gustavo Cruz

[[Caral]]

Hola
Pues me imagino que en el evento onkeypress haciendo ver que si se presiona la tecla enter que el dataset vaya a next.
Saludos

[*Caro*]

Hola GustavoCruz, en un StringGrid podrías hacer algo como esto:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  begin
   With StringGrid1 do
    if (Col=ColCount-1) and (Row<RowCount-1) then
     begin
      Row := Row+1;
      Col := 1;
     end
    else
     if Col<ColCount-1 then
      Col := Col+1;
  end;
end;

Saluditos

[[Caral]]

Hola
Supongamos que usas ADO, aunque da lo mismo.

Código Delphi [-]
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
  vk_RETURN: ADOTable1.Next;
  end;
end;

Saludos

[GustavoCruz]

Gracias por sus respuestas, probaré y les comento.


Saludos

[*Caro*]

Hola amiguito , se le ha olvidado a GustavoCruz indicarnos a que grillas se refiere.

Saluditos

[[Caral]]

Hola Caro.
Lo que siempre he visto es que cuando dicen Grid (a secas) es un DBGrid, que es el mas sencillo de usar, pero estas en lo cierto, perfectamente puede ser un stringrid o quien sabe que otro.
Buen apunte Maestra.
Saludos

[GustavoCruz]

hola amigos del foro, perdón por no explicar más. Se trate de un StringGrid