tlistview et popupmenuRésolu

Question

bonsoir a tous


voila j'ai beau chercher sur le web mais je ne trouve pas les reponse a mes questions!

dans ma form g un treeview avec deux arbre l'un s appel arbre l autre s appel neud

en sachant que je voudrais afficher dans les enfant de ces arbres un popupmenu different 

vous vouillez ce que je veux dire pour plus de detail contacter moi


merci encore pour votre aide

cs_MAURICIO · Accepted Answer

Salut, 

dans le OnNodeChange du TreeView, assigne le bon Popupmenu par code selon le Node.Level ... 

A+


Composants Cindy pour Delphi
Faites une donation.

eclems · Answer

PS voici un petit bout de code de mon appli : 



Arbre:=xtree.Items.Add(Arbre,''); // Ajoute un nouveau noeud
     Arbre.ImageIndex:=26; // Image du noeud
     Arbre.SelectedIndex := 26; // Image du noeud sélectionné
     Arbre:=xtree.Items.Addchild(Arbre,'Eclems'); // Ajoute un nouveau noeud
     Arbre.ImageIndex:=2; // Image du noeud
     Arbre.SelectedIndex := 2; // Image du noeud sélectionné
      Arbre:=xtree.Items.Add(Arbre,'La communauté libre');// Ajout du nouveau noeud secondaire
     Arbre.ImageIndex:=27; // Image du noeud
     Arbre.SelectedIndex := 27; // Image du noeud sélectionné
      Arbre:=xtree.Items.AddChild(Arbre,'Méla');// Ajout du nouveau noeud secondaire
     Arbre.ImageIndex:=1; // Image du noeud
     Arbre.SelectedIndex := 1; // Image du noeud sélectionné
      Arbre:=xtree.Items.Add(Arbre,'Perry');// Ajout du nouveau noeud secondaire
     Arbre.ImageIndex:=0; // Image du noeud
     Arbre.SelectedIndex := 0; // Image du noeud sélectionné

     
      Neud:=xtree.Items.Add(Neud,'Le forum !!!');// Ajout du nouveau noeud secondaire
     Neud.ImageIndex:=27; // Image du noeud
     Neud.SelectedIndex := 27; // Image du noeud sélectionné
     Neud:=xtree.Items.Addchild(Neud,'Le bistro ');// Ajout du nouveau noeud secondaire
     Neud.ImageIndex:=6; // Image du noeud
     Neud.SelectedIndex := 6; // Image du noeud sélectionné

      Neud:=xtree.Items.Add(Neud,'Les logiciels libres ');// Ajout du nouveau noeud secondaire
     Neud.ImageIndex:=6; // Image du noeud
     Neud.SelectedIndex := 6; // Image du noeud sélectionné

      Neud:=xtree.Items.Add(Neud,'Les films');// Ajout du nouveau noeud secondaire
     Neud.ImageIndex:=6; // Image du noeud
     Neud.SelectedIndex := 6; // Image du noeud sélectionné

      Neud:=xtree.Items.Add(Neud,'Les MP3 ');// Ajout du nouveau noeud secondaire
     Neud.ImageIndex:=6; // Image du noeud
     Neud.SelectedIndex := 6; // Image du noeud sélectionné
  arbre.MakeVisible;
  Neud.MakeVisible;

eclems · Answer

Merci maiq pourrais tu m en dir plus stp je sais pas par ou commencer

eclems · Answer

Mauricio 

J'ai essayer plein de chose sur l'evennement que tu viens 
de me siter mais les resultatw attendu ne correspondent pas à 
mes attentes.
Pourrais tu m'aider s'il te plait?


Cordialement

eclems · Answer

Merci mauricio 

Pour m'avoir mi sur la route 
voila je vous propose ce que j'ai coder

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  if assigned(treeview1.Selected) then begin
  arbre := treeview1.Selected;
  if arbre.Level < 1 then Exit;
  while arbre.Level <> 1 do
  begin
    arbre := arbre.Parent;

  end;
end;
  ppuzrs.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

Merci encore à vous.

Tlistview et popupmenu

5 réponses

Votre réponse

Discussions similaires