Pour aller d'une colonne ver l'autre par la touche entrer dans un dbgrid j'utilise le code suivant:
Mais comment aller à la ligne suivante par la touche entrer si j'arrive à la dernière colonne?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 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; end.
J'ai ajouté quelque modification mais j'arrive pas.
Partager