Discussion :

[barucca]

Bonjour,

J'ai une StringGrid qui me sert pour afficher des données. La premiere ligne correspond au titre de mes colonne et est donc une FixedRow.
Je ne trouve pas comment savoir sur quelle colonne on a fait un clic droit si on le fait sur les titres de colonnes.
Quelqu'un a t'il une idée???

SG.col ne donne que la position du curseur si je ne me trompe pas, donc dans mon cas comme le curseur ne vient pas se mettre sur ma colonne ca ne fontionne pas.

Merci

[Cl@udius]

Salut

Tu peux récupérer les coordonnées avec MouseCoord.
Exemple:

1 TStringGrid, 2 TEdit.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  GridCoord: TGridCoord;
begin
  GridCoord := TStringGrid(Sender).MouseCoord(X,Y);
  Edit1.Text := IntToStr(GridCoord.X);
  Edit2.Text := IntToStr(GridCoord.Y);
end;

Tu peux récupérer X et Y de la même façon sur un clic-droit

@+

[Caine]

Tu parles du moment ou le curseur de la souris affiche une double barre verticale avec 2 flèches horizontales de part et d'autres. C'est à dire quand on peu retailler les colonnes?

Si c'est le cas, l'évènement est hélas intrinsèque. Du moins, personnellement, je n'ai pas réussi à trouver quel évènement est déclenché.

Si tu arrives à attraper un event avec des coordonnées X et Y, tu peux utiliser MouseToCell (si je me souviens bien du nom, enfin cherche dans l'aide avec "ToCell"). Cette méthode transforme les coordonnées curseur en ligne et colonne.

[barucca]

ben en fait j'aurais aimé trouver une autre solution car la taille de mes colonnes n'etant pas fixe, il me faudrait recalculer sur quelle colonne je me trouve a chaque fois en cherchant les tailles de colonnes; mais s'il n'y a pas d'autre moyen je ferais avec ton exemple!! merci

[barucca]

A! si la fonction de Caine existe ca arrangerais alors peut etre mes affaires... je vais regarder avec vos deux suggestion alors!!

et non je ne parle pas du retaillage des colonnes, en fait je veux faire afficher un menu au clic droit sur le titre de mes colonnes, et apres par exemple supprimer la colonne sur laquelle j'ai ouvert le menu.

Pour ouvrir le menu pas de souci avec les popup menu, mais pour savoir sur quelle colonne je suis c'est plus dur

[barucca]

Merci beaucoup a vous deux, ca marche impeccable!!!

[Cl@udius]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  GridCoord: TGridCoord;
begin
  GridCoord := TStringGrid(Sender).MouseCoord(X,Y);
  ShowMessage('X,Y = ' + IntToStr(GridCoord.X) + ',' + IntToStr(GridCoord.Y));
  if ssRight in Shift then begin
    // Affichage de ton Popup
    // Traitement.....
  end;
end;

@+