Discussion :

[Mickey.jet]

Bonjour...

J'autorise le clic droit sur mon treeView (RightClickSelect := true) et lorsque je cliquedroit j'ai aussi un popupmenu qui me permet de supprimer l'Item mais le problème c'est qu'il ne supprime pas l'item sélectionné par le clic droit mais le dernier selectionné par le clic gauche (qui est d'ailleur resté entouré par des pointillé).

Comment puis je faire pour sélectionné l'item par le clic droit puis ensuit afficher le popupMenu afin de supprimer l'item selectionné (celui par le clic droit et non pas le dernier selectionné par le clic gauche)?

Merci

[Mickey.jet]

personne?

[Mickey.jet]

dsl j'insiste mais pourquoi je n'arrive pas a valider un item par un clic droit alors que RightClickSelect := true?

[denokan]

je viens de tester sur Delphi7 et à priori il y a un petit bug : j'ai bien mis la propriété RightClickSelect à True, mais je ne peux pourtant pas sélectionner un élément avec le bouton droit de ma souris
par contre une petite recherche sur avec les mots clés 'delphi TreeView RightClickSelect' donne ce résultat

[Mickey.jet]

Merci denokan
le lien est très intéressant... (pas mal le coup du MouseDown )

[Mickey.jet]

En fait il y a encore un ptit soucis.
En effet, lorsque je fais un clic droit le popupMenu apparait avant meme de déclencher l'événement MouseDown et donc lorsque je clique sur l'item supprimer je n'ai pas eu le temps de sélectionner l'item (cliqué droit) et je supprime l'item précédemment sélectionné.
Comment puis je m'en sortir?

[denokan]

ben c bizarre chez moi ca marche nickel (cf pièce jointe) et ca devrai marcher aussi chez toi puisque le popup ne devrai apparaître qu'après avoir relaché le bouton, donc bien après le MouseDown quelles versions de windows et delphi utilises-tu ?

[Mickey.jet]

j'ai delphi 2006

[EMC51]

J'avais le même problème... plus une contrainte de validation lors du changement de noeud.

Je l'ai résolu en ouvrant le popUp directement depuis le mouseDown :

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
procedure TFrm_Main.TVIntroMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  CNode: TTReeNode;
begin
if Button= mbRight Then
Begin
  CNode:= tvIntro.GetNodeAt(x,y);
  if CNode<>nil Then
  begin
    Cnode.Selected:= True;
    TVIntroChange(sender, Cnode);
    tvPopUp.Popup(x + panelTvInfos.left , y + panelTvInfos.Top + 55);
  end;
End;

CA MARCHE NICKEL !