[Delphi 7 Windows XP] Valider une cellule dans DBGrid

Bonsoir à tous.
Voici mon problème : je voudrais qu' un clic dans une cellule d'un DBGrid affiche une donnée, qu'un second clic affiche une autre donnée, qu'un troisième clic affiche une autre donnée, etc... Pour ce faire, j'utilise un événement DBGrid1CellClick... Voici mon code simplifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin // ici, je suis sur la bonne cellule if Table1.FieldByName('Ctrl').Value='' then TableCompte.FieldByName('Ctrl').Value:='A' else if Table1.FieldByName('Ctrl').Value='A' then TableCompte.FieldByName('Ctrl').Value:='X' else // etc... end;

---

Ça marche, mais à condition qu'après chaque clic, je change de cellule (est-ce que ça valide la saisie ??), puis que je revienne sur ma cellule initiale pour le clic suivant. Ce que je voudrais : c'est pouvoir cliquer en série sur ma cellule pour y faire défiler les données A, puis X, etc...
Merci d'avance à ceux qui vont se pencher sur mon petit problème.
Cordialement,
Alain
PS : j'ai essayé vainement Application.ProcessMessages

Je viens d'essayer de valider après chaque clic en utilisant POST. Ça ne fonctionne pas plus.

As-tu essayer de gere le nombre de clique.

Genre du utilise un variable global
nbclique
puis tu ajouter 1 a chaque clique
ensuite tu test cette valeur et selon le nombre tu affiche tel ou tel valeur ?

a+

Merci pour ta réponse, BuzzLeclaire.
C'est une piste, je vais voir si je peux l'utiliser.

Je viens de résoudre mon problème... tout seul, par voie de conséquence, je suis désolé d'avoir déposé ce sujet et fait perdre du temps à quelques uns d'entre vous :oops:
En fait, ma solution est une bidouille (d'ailleurs, je ne sais rien faire d'autre que de la bidouille). L'idée : changer de colonne par programmation, simuler un clic gauche , on peut alors cliquer à nouveau dans la colonne originelle ('Ctrl') sans avoir à déplacer la souris qui est restée à la même place (d'où l'impression de pouvoir cliquer en série sur ma cellule pour y faire défiler les données A, puis X, etc...). Voici mon nouveau code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin // ici, je suis sur la bonne cellule if Table1.FieldByName('Ctrl').Value='' then Table1.FieldByName('Ctrl').Value:='A' else if Table1.FieldByName('Ctrl').Value='A' then Table1.FieldByName('Ctrl').Value:='X' else // etc...   //AJOUT en fin de procédure // 1 - Je change de colonne (je choisis n'importe quelle autre colonne, ici 'Nom') Table1.FieldByName('Nom').FocusControl; // 2 - Je simule un clic gauche (merci Developpez.com pour le code!!!) dans cette colonne) Mouse_Event(MOUSEEVENTF_LEFTDOWN , 0, 0, 0, 0); Mouse_Event(MOUSEEVENTF_LEFTUP,0,0, 0, 0); // 3 - Je peux maintenant recliquer dans ma colonne originelle 'Ctrl' sans avoir à déplacer la souris // Fin de l'AJOUT   end;

---

Bien sûr, je reste preneur d'un vrai code (un code élégant, en quelque sorte ;))
Cordialement,
Alain