Sélection d'une cellule dans un TStringGrid par double click

bonjour
je suis debutant en delphi

je voudrais selectionner une cellule d un StringGrid par doubleclic de la souris.
j ai consulté la FAQ et je n ai rien trouvé sur ce theme

je precise que je parviens tres bien à selectionner une cellule d un StringGrid par simple clic associé à l evenement OnSelectCell.

Si j utilise l evenement OnDblClick, je ne vois pas comment pas recuperer la position du rang et de la colonne selectionnée.

Si j utilise l evenement OnMouseUp, La variable Shift n est pas servi(l ensemble est à vide:Shift[] ) et le test
"if ssDouble in Shift (double clic) n est jamais positif,en conséquence.


Merci de vos reponses.

Jettes un oeil à la méthode MouseCoord de ton TStringGrid ;)

Ca marche pas des masses.

J'ai essayé un truc style

Code:

---

1 2	GetCursorPos(P) ; StringGrid1.MouseToCell(P.X, P.Y, Acol, ARow);

---

Ca marche pas mieux: pour les deux cas, j'ai des indices de cellules à -1 :?

Bizarre...

Citation:

---

Envoyé par Cpt Anderson

Ca marche pas des masses.

J'ai essayé un truc style

Code:

---

1 2	GetCursorPos(P) ; StringGrid1.MouseToCell(P.X, P.Y, Acol, ARow);

---

Ca marche pas mieux: pour les deux cas, j'ai des indices de cellules à -1 :?

Bizarre...

---

Presque ! (et je n'ai pas eu le temps de te le dire :oops: ), il faut d'abord que tu transforme les coordonnées de ta souris, qui sont des coordonnée écran (l'origine est le coin supérieur gauche de ton écran), en coordonnées clientes de ton contrôle (l'origine est le coin supérieur gauche) :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.StringGrid1Click(Sender: TObject); var P:TPoint; ACol,ARow:integer; begin P:=Mouse.CursorPos; P:=StringGrid1.ScreenToClient(P); //<--- ICI StringGrid1.MouseToCell(P.X,P.Y,ACol,ARow); Label1.Caption:=IntToStr(ACol)+'/'+IntToStr(ARow); end;

---

Punaise, je connaissais pas. Je serais moins con ce soir.

Merci.

donc pour la reponse pour etienne, tu fais:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.StringGrid1DblClick(Sender: TObject); var P : TPoint ; ACol, ARow: integer ; begin GetCursorPos(P) ; P:=StringGrid1.ScreenToClient(P); StringGrid1.MouseToCell(P.X, P.Y, Acol, ARow); ShowMessage(StringGrid1.Cells[Acol, ARow]); end;

---

et le tour est joué.

merci de votre reponse
votre code me convient tres bient