salut
Procedure Tform.dbgrid1KeyDown(Sender:Tobject; Var Key:Word; Shift:TshiftState)
begin
if key=13 then
if Dbgrid1.SelectedIndex<Dbgrid.Columns.Count-1
then dbgrid1.SelectedIndex:=Dbgrid1.selected+1
else
if not DBGrid.Dataset.Eof do
begin
DBGrid.Dataset.Next;
SelectedIndex := 0;
end;
end.
solution proposée par TicTacToe sir forum developpez.com
yahia