Cita:
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.