Discussion :

[ChronikBNC]

Bonjour,

Etant nouveau sur Delphi, je me trouve devant un soucis qui me parait simple mais dont j'ai passé 2heures pour l'instant.

Je sais qu'il existe la possibilité d'activer un menu en popup lorsque l'on clique droit sur une entete de colonne. Cette popup contient plusieurs actions à executer (voir printscreen)



Par contre, je ne trouve pas l'option à cocher dans l'éditeur pour avoir cette foncitonnalité dans la gridDbTableView.

Cela doit être très simple, mais aucune manière de le trouver.

Merci et bonne soirée.

[ALWEBER]

Bonjour,
Créer le popup avec autoPopup à false. Intercepter les événements MouseDown et MouseUp de ton composant.
La variable globale BG1 sert à récupérer l'information de click droit absent dans le mouseup.
Dans certain control comme le dbgrid tu as aussi l'événement onTitleClick

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
  bg1: boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then
    bg1 := true;
end;
 
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p1 : TPoint ;
begin
  P1 := TControl(Sender).ClientToScreen(Point(X,Y));
  if bg1 then
    PopupMenu1.Popup(P1.X, P1.Y);
  bg1 := false;
end;

[ouiouioui]

Bonjour,

il faut utiliser le composant TcxGridPopupMenu, avec la propriété UseBuiltInPopupMenus := True;

regarde la démo ExpressQuantumGrid\Demos\Delphi\GridMenuViewsDemo

[ChronikBNC]

Effectivement, la solution était d'utiliser le TcxGridPopupMenu. La démo m'a bien aidée et la solution a été implémantée.

J'aurais du préciser que le composant, que j'utilisais, faisait partie de la libraire DevExpress.

Merci infiniment pour vos réponses.

Passez une bonne journée.