Discussion :

[etienne44]

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.

[LadyWasky]

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

[Cpt Anderson]

Ca marche pas des masses.

J'ai essayé un truc style

Code :

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

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...

[LadyWasky]

Ca marche pas des masses.

J'ai essayé un truc style

Code :

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

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 ), 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 :

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

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;

[Cpt Anderson]

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

Merci.

donc pour la reponse pour etienne, tu fais:

Code :

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

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é.

[etienne44]

merci de votre reponse
votre code me convient tres bient