Discussion :

[abdelghani_k]

Bonjour à tout le monde des développeurs,

Comment parcourir un dbgrid en utilisant la touche Entrée au même effet que la touche gauche (se déplacer d'une colonne à une autre en utilisant la touche Entrée)?

Merci d'avance.

[delphichem]

Utilise l'evenement onkeydown:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    if DBGrid1.SelectedIndex < DBGrid1.Columns.Count - 1 then
      DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
end;

[youhibadelphi]

Salut
J’ai utilisé ce code mais ça n'a pas marché.

[popo]

Utilise l'evenement onkeydown:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    if DBGrid1.SelectedIndex < DBGrid1.Columns.Count - 1 then
      DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1;
end;

Salut
J’ai utilisé ce code mais ça n'a pas marché.

*

C'est parce qu'il ne faut pas tester"13" mais "CHR(13)" ou un truc dans le genre. Sinon tu peux tester "VK_RETURN"

Si le SelectedIndex ne fonctionne, dans ce cas essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Key := VK_LEFT;

[Just-Soft]

#13

[youhibadelphi]

salut
popo et Just-Soft
j'essayerais
merci.

[youhibadelphi]

Salut
Malheureusement ça n'a pas marché ni

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Key := VK_LEFT;

Ni

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#13

Mais dans quel cas les flèches du clavier et la touche entrée ne fonctionnent pas dans un dbgrid et comment faire pour forcer leur