Discussion :

[delphi2019]

Bonjour

j'ai une DBAdvGrid et je voudrais pouvoir utiliser un clic droit dessus j'ai donc utilisé un PopupMenu
-je voudrais faire une action pour chaque cellule.
comment ??

J'ai rechercher sur l'Internet et j'ai trouvé ce code, mais cela n'a pas fonctionné pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.DBAdvGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  aCol, aRow, xRow : integer;
begin
 xRow := TDBAdvGrid1(TDBAdvGrid1(Sender)).Row;          // xrow  from DBGrid     le pb est dans ce ligne [dcc32 Erreur] Unit1.pas(528): E2066 Opérateur ou point-virgule manquant
 TDBAdvGrid1(Sender).MouseToCell(X,Y,aCol,aRow);         // arow  from mouse    le pb est dans ce ligne [dcc32 Erreur] Unit1.pas(528): E2066 Opérateur ou point-virgule manquant
 if (Button = mbRight)                            
   then      TDBAdvGrid1(Sender).PopupMenu.Popup; {popup ONLY over the celected cell}
end;

[tourlourou]

Code :

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

1
2
procedure TForm1.DBAdvGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
// je suppose que la méthode s'appelle ainsi car tu as sur ta fiche un composant de type TDBAdvGrid qui se nomme DBAdvGrid1

Si c'est bien le cas, et que cette méthode n'est pas affectée à un autre composant, tu peux le référencer directement par son nom :

Code :

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

1
2
3
4
xRow := DBAdvGrid1.Row; 
// et non
// xRow := TDBAdvGrid1(TDBAdvGrid1(Sender)).Row;  
// qui suppose que le Sender soit de type TDBAdvGrid1 et dont on ne comprend pas le double cast

ou en castant le Sender :

Code :

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

1
2
3
4
TDBAdvGrid(Sender).MouseToCell(X,Y,aCol,aRow);
// et non
// TDBAdvGrid1(Sender).MouseToCell(X,Y,aCol,aRow);
// pour la même raison de type

Si tu veux utiliser plusieurs fois la référence au Sender, tu peux ne le transtyper qu'une fois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBAdvGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  aCol, aRow, xRow : integer;
  MyGrid: TDBAdvGrid;
begin
  MyGrid := TDBAdvGrid(Sender);
  xRow := MyGrid.Row;          
  MyGrid.MouseToCell(X,Y,aCol,aRow);  
  if (Button = mbRight) and (...) then                           
    MyGrid.PopupMenu.Popup; {popup ONLY over the celected cell}
end;

[delphi2019]

Merci de m'aider
après l’exécution de ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBAdvGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  aCol, aRow, xRow : integer;
  MyGrid: TDBAdvGrid;
begin
  MyGrid := TDBAdvGrid(Sender);
  xRow := MyGrid.Row;          
  MyGrid.MouseToCell(X,Y,aCol,aRow);  
  if (Button = mbRight) and (...) then                           
    MyGrid.PopupMenu.Popup; {popup ONLY over the celected cell}
end;

l'erreur suivante apparaît sur la ligne ( MyGrid.PopupMenu.Popup; )
[dcc32 Erreur] U_form1.pas(534): E2035 Pas assez de paramètres originaux

[delphi2019]

SVP

[SergioMaster]

Ne me dites pas que vous avez recopié tel quel cette ligne de code

Code :

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

  if (Button = mbRight) and (...) then

sans remplir les conditions supplémentaires optionnelles (ce que voulait dire les points de suspensions)

[delphi2019]

salut SergioMaster
Bien sûr, je viens d'écrire(if Button = mbRight then)

Voici le code que j'écrit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBAdvGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  aCol, aRow, xRow : integer;
  MyGrid: TDBAdvGrid;
begin
  MyGrid := TDBAdvGrid(Sender);
  xRow := MyGrid.Row;          
  MyGrid.MouseToCell(X,Y,aCol,aRow);  
  if Button = mbRight then                           
    MyGrid.PopupMenu.Popup; {popup ONLY over the celected cell}
end;

observation: dans mon form le nom du composant menu de est: PopupMenu1