Discussion :

[sapin]

Bonjour,
je cherche a ouvrir un pop-up menu lorsque je fait un clic droit sur un element.
J'ai remarqué que mon clic droit ne sélectionne pas l'élement sur lequel j'ai cliquer.
Il me faut faire un clic gauche dans un premier temps sur mon element, puis un clic droit.
Est ce possible de rendre mon clic droit selectif ?
Merci

[Nono40]

Certains composants le prévoie. Sinon dans le click droit (OnMouseDown) tu fait un SetFocus.

[sapin]

ok, je vais essayer ça.
Merci

[sapin]

Bonjour,
désolé de remettre à jour ce topic mais mal grès les conseils, je n'arrive toujours pas a sélectionner un nœud avec mon clic droit.
Voici ma dernière tentative

Code :

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

1
2
3
4
5
6
7
procedure TFrmArbreTemp.TreeView1MouseActivate(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  inherited;
  TreeView1.SetFocus;
end;

Lorsque je fait un clic gauche sur un nœud, mon nœud devient bleue et est encadré par un rectangle en pointillé.
Lorsque je fait un clic droit, mon nœud devient bleue mais n'est pas encadré. Le cadre reste sur le dernier nœud ou un clic droit a été effectué.

[Aka Guymelef]

Pour un TTreeView tu as tout simplement la propriété RightClickSelect à positionner à true pour que le clic droit entraine une sélection.

[sapin]

Je viens justement de tomber sur cette propriété dans l'aide de delphi, mais ça ne marche toujours pas.
Pourtant à la lecture de l'aide j'avais un bon espoir de réussite.
Mon rectangle reste toujours sur le dernier nœud sélectionné avec un clic gauche.

[stfanny31]

salut
personelement d'aprés se que j'ai compri
ta plusieur noeud
je pence que tu dois donné la position de ton noeud dans la Tforme

[Aka Guymelef]

Je viens justement de tomber sur cette propriété dans l'aide de delphi, mais ça ne marche toujours pas.
Pourtant à la lecture de l'aide j'avais un bon espoir de réussite.
Mon rectangle reste toujours sur le dernier nœud sélectionné avec un clic gauche.

Avez-vous fait attention à enlever tout code "parasite" que vous aviez pu mettre jusqu'à présent et qui pourrait interférer avec le traitement standard de la propriété ?

[sapin]

salut,
normalement la position du nœud est renseigner dans le treeview de maniere automatique avec un clic. je n'ai donc pas a le faire normalement. Mais si tu as une idée de comment faire pour signalé ce nœud, je suis preneur.

J'ai fait un petit montage pour rendre le probleme plus explicite.

De plus, je me demande si mon probleme ne vient pas du fait que mon clic droit déclenche un pop-up menu.
Merci pour les coups de main.

[sapin]

Avez-vous fait attention à enlever tout code "parasite" que vous aviez pu mettre jusqu'à présent et qui pourrait interférer avec le traitement standard de la propriété ?

La gestion du menu pop-up déclenché par un clic droit peut être ?
Il est peut être possible que le menu s'ouvre avant que le treeview soit remis a jour.

[stfanny31]

salut
donc a chaque fois que vous qliqué sur un noeud ,il devien bleu et il y'a un rectangle qui ce désigne
si c'est ca ,pourquoi ne pas fair

Code :

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

1
2
3
4
 
(if neud=bleu and rectangle est déssiné)
then bouton drois il marche
else il marche pas

[Aka Guymelef]

En fait ce n'est pas ce que Sapin cherche à faire. Il ne veut pas détecter si le clic droit a fonctionné ou pas mais que son clic droit entraine la sélection du noeud pointée par la souris...

[sapin2]

Re bonjour
Aka Guymelef a bien compris mon problème.
J'ai encore cherché une solution à mon problème sans succès.
Je m'assure bien que je passe dans un événement après que RigthClickSelect soit à vrai, je fait bien un

Code :

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

Treeview.SetFocus;

et pourtant je ne sélectionne toujours pas mon bon nœud.

PS : j'ai voulu changer mon email sur le compte sapin, et depuis je ne peux plus rien faire avec . Si un modérateur peut jeter un œil, merci.

[Aka Guymelef]

Peut-être que c'est ce SetFocus en plus qui pose problème, avez-vous essayer de le retirer et de tester si cela fonctionnait ?

PS : j'ai contacté quelqu'un pour votre problème de compte Sapin.

[sapin2]

J'ai bien testé sans le SetFocus.
Je n'arrive pas à mettre la main sur la gestion du pop-up menu (la joie de récupéré des projets sans doc...), pour voir comment cela ce passe avec un clic gauche et refaire a l'identique pour un clic droit pour dépanner.
Cela dit, je ne comprend pas pourquoi la propriété RigthClickSelect ne tient pas ses promesses....

Ps : Merci pour le pb de compte.

[Aka Guymelef]

Peut-être que c'est effectivement l'addition clic droit + popup néanmoins je n'irais pas jusqu'à l'affirmer parce que je n'ai pas utilisé ce composant jusqu'à présent, et encore moins dans ce cadre ^^°

[sapin]

Bon, ben voila une solution qui me dépanne pour l'instant.
Ça n'est pas très propre mais bon, ça fait ce que je souhaite pour le moment.

Code :

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

1
2
3
4
5
6
7
procedure TArbre.TreeView1MouseActivate(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  inherited;
  TreeView1.Selected := TreeView1.GetNodeAt(X,Y);
end;