Discussion :

[anapurna]

salut

bon un peu d'explication

dans l'evenement onkeydown de la grille

Code :

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

1
2
3
procedure TMaForm.MaGrilleKeyDown(Sender: TObject; var Key: Word;
	Shift: TShiftState);

je regarde la touche appuyer si c'est la touche entre ou la touche tab

Code :

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

   if  (key=VK_RETURN) or (key=VK_TAB)

je definie une variable Grid c'est pour une utilisation simplifié
je dit don que l'appelent est le dbgrid

Code :

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

    Grid :=  (Sender as TDbGrid);

ensuite je verifie que le nombre de champs de la grille n'est pas
supperieur a la prochaine valeur de SelectedIndex

Code :

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

 if Grid.FieldCount > Succ(Grid.SelectedIndex)  then

si c'est le cas je simule un appui sur la fleche droitece qui me permettra de passé a la case suivante

Code :

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

  Keybd_event(VK_RIGHT,0,0,0);

dans le meme temps j'annule la valeur de la clef pour qu'elle ne soit pas traiter
par le inherited

Code :

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

	  key:=0;

par contre si nous arrivon en fin de ligne
je remet le SelectedIndex a zero (premiere case)

Code :

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

Grid.SelectedIndex := 0;

je simule l'appuie sur la qui decent

Code :

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

 Keybd_event(VK_DOWN,0,0,0);

dans le meme temps j'annule la valeur de la clef pour qu'elle ne soit pas traiter
par le inherited

Code :

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

	  key:=0;

dans tous les cas je fait le traitement attendu pour un fonctionnement normal d'un dbgrid

Code :

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

  inherited;

si ton probleme persiste
je suppose que la fenetre ou ce trouve le dbgrid intercepte l'évènement avant que celui-ci ne se produit
tu as mis un point d'arrêt dans la méthode pour voir si tu passe dedans ?


@+ Phil

[youhibadelphi]

Salut
Et un grand merci anapurna pour ton aide et cette explication précieuse.
Oui je crois qu'il ya un conflit et je pense que je suis sur le point de le découvrir.

[youhibadelphi]

Salut
J’ai copié mon projet sur un autre disque et le sang n'a commencer sa circulation dans mon dbgrid qu'après l'élimination de quatre boutons.
En fin j'ai entre mes mains un dbgrid vivant.
Merci pour votre aide mes amis.