PopupMenu sur une chaque cellule d'une DBAdvGrid

Version imprimable

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:

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;

Code:

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:

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:

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:

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;

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

Code:

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

02/02/2020, 22h29
delphi2019

SVP
03/02/2020, 08h59
SergioMaster

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

Code:

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

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

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

Voici le code que j'écrit

Code:

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

06/02/2020, 14h52
delphi2019

svp

Citation:

Envoyé par delphi2019

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

et ? Popupmenu1 ne s'affiche pas ?
:evilred: IL FAUT VOUS ARRACHER LES INFORMATIONS et vous avez le culot de faire des ups !

Bien sûr vous avez vérifié

Que MyGrid.PopupMenu est renseigné ?
Que le popupmenu contient des items ?

Si un menu différent devait être utilisé selon la colonne alors
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm92.AdvStringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=TMouseButton.mbRight then begin case advStringGrid1.Col of 1 : PopupMenuCol1.Popup(X,Y); 2 : PopupMenuCol2.Popup(X,Y); else advStringGrid1.PopupMenu.Popup(X,Y); end; end;
je vous laisse le soin de gérer les X et Y en fonction de la forme et non de l'écran :ptdr: J'imagine déjà le prochain post :ptr:

------------------------------------------------------------
SergioMaster Je vous respecte tellement;)

SergioMaster Ne te fâche pas de moi,
j'apprends de toi :mrgreen:

Je m'excuse de ne pas avoir mis toutes les informations sur le sujet

Dans les Sujets à venir , je vais expliquer les problèmes dans les moindres détails

------------------------------------------------------------
SergioMaster oui pour:
-MyGrid.PopupMenu est renseigné
-le popupmenu contient des items

C'est le problème que je n'ai toujours pas résolu:
l'erreur ([dcc32 Erreur] U_form1.pas(534): E2035 Pas assez de paramètres originaux ) apparaît sur la ligne

Code:

MyGrid.PopupMenu.Popup;

Ceci est une tentative de ma part, mais ce n'est pas correct (les X et Y en fonction de la forme)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.advStringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var P:TPoint; begin P:=form1.ScreenToClient(P); if Button=TMouseButton.mbRight then begin case advStringGrid1.Col of 1 : PopupMenuCol1.Popup(P.X,P.Y); 2 : PopupMenuCol2.Popup(P.X,P.Y); else advStringGrid1.PopupMenu.Popup(P.X,P.Y); end; end; end;

Bonsoir

Citation:

Envoyé par SergioMaster

J'imagine déjà le prochain post :ptr:

j'avais bien imaginé.

Citation:

Ceci est une tentative de ma part, mais ce n'est pas correct (les X et Y en fonction de la forme)

Comme tentative vous ne vous êtes pas beaucoup foulé non plus.

Code:

P:=form1.ScreenToClient(P);

Au moins auriez-vous pu tenter quelque chose de cohérent puisque X et X sont les coordonnées de la souris

Code:

p:=ClientToScreen(TPoint.Create(X,Y));

aurait été plus correct.

Pour avoir un Popup au plus près de la cellule, voici ce que je propose
Code:

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.AdvStringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var APoint : TPoint; ACellRect : TRect; begin if Button=TMouseButton.mbRight then begin with TAdvStringGrid(Sender) do begin // obtenir les coordonnées de la cellule ACellRect:=CellRect(Col,Row); // obtenir les coordonnées en fonction de l'écran // obtenir le point en bas à droite de la cellule APoint:=ClientToScreen(TPoint.Create(ACellRect.Right,ACellRect.Bottom)); // obtenir le point en haut à droite de la cellule // APoint:=ClientToScreen(TPoint.Create(ACellRect.Right,ACellRect.Top)); // etc... case Col of 1 : PopupMenuCol1.Popup(APoint.X,APoint.Y); 2 : PopupMenuCol2.Popup(Apoint.X,Apoint.Y); else PopupMenu.Popup(APoint.X,APoint.Y); end; end; end;

07/02/2020, 16h51
Charly910

Bonjour,

c'est normal que cela ne marche pas : P n'est pas initialisé

Pour obtenir les coordonnées de la souris par rapport à la form tu fais :

Code:

P := Form1.ScreenToClient(Mouse.CursorPos);

et par rapport à ta grille :

Code:

P := Form1.advStringGrid1.ScreenToClient(Mouse.CursorPos);

A toi de voir ce que tu veux

A+
Charly

Edit : Grillé par SergioMaster toujours le plus rapide !!!
07/02/2020, 20h36
delphi2019

1 pièce(s) jointe(s)

meeeeeerci SergioMaster c'est résolu

merci Charly910

J'ai une autre question sur le même sujet (Attribuer TPoupMenu dans Inplace editor dans TAdvStringGrid ):
si la cellule de la colonne est en mode édition et que j'ai cliqué avec le bouton droit de la souris, le popup par défaut des fenêtres apparaît.
Je veux que la même fenêtre s'affiche comme elle apparaît sur la sélection de cellule.
Veuillez trouver les images ci-dessous de la fenêtre contextuelle.
Pièce jointe 536814

Comment résoudre ce pb?
J'ai trouvé ça Mais je ne savais pas comment l'utiliser

Code:

function CreateEditor: TInplaceEdit; override;

http://docwiki.embarcadero.com/Libra...d.CreateEditor
08/02/2020, 09h48
Charly910

Bonjour,
je pense que tu peux tester le booléen EditorMode de ta Grille pour savoir si tu es en mode édition ou non et ainsi afficher le bon Popup.

A+
Charly
08/02/2020, 10h49
SergioMaster
Citation:

Envoyé par Charly910

Edit : Grillé par SergioMaster toujours le plus rapide !!!

:mouarf: pas toujours, la preuve

Pour en revenir à cette nouvelle demande, le popup en mode édition (fort pratique au demeurant) n'a rien à voir avec celui/ceux de la grille, il s'agit du menu contextuel de l'éditeur, Passer la propriété DefaultEditor de la grille à edNone empêche donc d'afficher ce menu contextuel.
Un autre évènement de AdvStringGrid peut aussi entrer en jeu OnGetEditorProp, ce que l'on ne peut pas reprocher à TMS Software c'est son manque de documentation sur TAdvStringGrid vous trouverez plein d'exemples à partir de la page 26

toujours selon le fil de la discussion, à savoir les colonnes 1 et 2 ont leur propre popupmenu ceci fait l'affaire
Code:

1 2 3 4 5 procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); begin if ACol in [1,2] then AEDitor:=edNone; end;
Je n'ai pas fouillé plus avant, peut-être y a t-il moyen d'accéder directement au popupmenu de l'éditeur. À vous de poursuivre
09/02/2020, 15h42
delphi2019

Merci SergioMaster d'avoir enrichi le sujet et les idées

la propriété DefaultEditor de la grille à edNone empêche d'afficher le menu contextuel.
Mais il a un négatif et il est:
Après avoir essayé le code que vous avez suggéré la grille Ne devenez pas en mode édition (L'édition disparaît) , malgré que l'Options goEditing de la grille est true

Après ma recherche sur Google J'ai trouvé Un sujet parle de ce problème

ici

Mais je ne savais pas où mettre Le code source qui a été soulevé sur Le sujet que j'ai recherché dans Google
Pouvez-vous m'aider

Bonjour,

à mon sens, vous n'avez pas compris ce que je vous ai proposé.
Mettre l'éditeur par défaut de la grille à edNone empêche effectivement tout menu contextuel d'éditeur d'apparaitre
Mais le code que je vous propose pour l'évènement OnGetEditorType permet de gérer les éditeurs en fonction des colonnes, en mettant ce code, laissez l'éditeur par défaut de la grille à edNormal
ou gérez les colonnes que vous voulez avoir avec un éditeur
Code:

1 2 3 4 5 6 7 procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); begin if ACol in [1,2] then AEDitor:=edNone else AEditor:=edNormal; end;

09/02/2020, 21h25
delphi2019

SergioMaster J'espère que je ne t'ai pas dérangé

meeeerci Tu es toujours le meilleur :mrgreen: