TStringGrid et PopupMenu

Version imprimable

11/03/2008, 23h51
jojo86

TStringGrid et PopupMenu
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:

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 !

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

Code:

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;

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:

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;

12/03/2008, 14h55
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.:oops: