StringGrid et popupmenu

**jmulans** · 19/03/2007, 11h43

Bonjour

j'ai une StringGrid et je voudrais pouvoir utiliser un clic droit dessus
j'ai donc utilisé un popupmenu
Or je voudrais faire une action differente pour chaque cellule, par exemple je fait un clic droit sur une cellule, je choisi dans le menu contextuel "deplacer a la colonne 2" et le contenu de ma cellule va dans la colonne 2
mais le probleme c'est que quand je fait un clic droit je n'ai pas le focus sur une cellule en particulier.

alors je voudrais savoir comment recuperer le focus sur la cellule ou on a fait le clic droit, ou alors comment faire pour creer unpopupmenu specifique sur une cellule

merci

**Cl@udius** · 19/03/2007, 12h52

Salut

Tu peux faire truc de ce genre:

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
21
22
23
24
25
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
  APoint: TPoint;
begin
  if ssRight in Shift then
  begin
    with TStringGrid(Sender) do
    begin
      MouseToCell(X, Y, ACol, ARow);
      // Sélectionne la cellule
      Col := ACol;
      Row := ARow;
      // Appel du popup suivant colonne
      APoint := ClientToScreen(Point(X, Y));
      case Col of
        0: PopupMenu1.Popup(APoint.X, APoint.Y);
        1: PopupMenu2.Popup(APoint.X, APoint.Y);
        else ...
      end;
    end;
  end;
end;

Il est également possible de ne créer qu'un seul popup et de masquer/afficher ses items en fonction du contexte.
Remarque: Inutile de relier le popup au StringGrid.

@+ Claudius.

**jmulans** · 19/03/2007, 13h08

ah merci !

je crois que ça va marcher là

il me reste plus qu'a faire le traitement derriere

en fait j'avais deja tenté un truc de ce style mais il devais me manquer le MouseToCell(X, Y, ACol, ARow);

par contre juste un truc, mon menu conteextuel s'affiche vers le haut et vers la gauche, comment je peut faire pour changer ça (bas et droite) ?