Discussion :

[jojo86]

Bonsoir, ma question est toute simple,

Je voudrais ajouter sur mon TStringGrid un PopupMenu pour inserer une ligne, supprimer etc...

Le soucis, c'est que lors du clique droit, il faut simuler un clique sur la ligne afin de la selectionner, j'ai trouvé un code mais qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Voila, j'éspère que vous pourrez m'aide !

[user 56gt8]

Bonjour , ce code marche pour selectionner la case quand le menu surgit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var
  Form1: TForm1;
  X1,Y1:integer;
 
implementation
{$R *.dfm}
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  X1 :=  X;
  Y1 :=  Y;
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
  Acol,ARow:integer;
begin
  StringGrid1.MouseToCell(X1,Y1,Acol,Arow);
  StringGrid1.col := Acol;
  StringGrid1.row := Arow;
end;

[guillemouze]

je te conseille plutot de ne pas enregistrer la position au mousemove, mais plutot au moment du popup (grace a l'evenement OnContextPopup de la stringgrid)

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  Acol,ARow:integer;
begin
  StringGrid1.MouseToCell(MousePos.X,MousePos.Y,Acol,Arow);
  StringGrid1.col := Acol;
  StringGrid1.row := Arow;
end;

[user 56gt8]

Bon sang mais c'est bien sûr , carrément plus simple.
De plus avec ma solution la case aurait été séléctionnée si le menu contextuel eu été utilisé sur d'autre composants de l'interface.Potentielle
source de problème en chaine.