Propos


La propriété permet d'accéder au menu contextuel du composant.



Description


Permet de personnaliser le menu contextuel.




Exemples


// Masque l'élément de menu
Form1.TreeView1.dbPopupMenu.Items[0].Visible := False;



// Désactive l'élément de menu
Form1.TreeView1.dbPopupMenu.Items[0].Enabled := False;



// Clique par script sur le premier élément de menu (la numérotation commence à partir de zéro)
Form1.TreeView1.dbPopupMenu.Items[0].Click;




// Renomme les éléments de menu
procedure Form1_OnShow (Sender: TObject; Action: string);

begin

    Form1.TreeView1.dbPopupMenu.Items[0].Caption := 'Ajouter un enfant';

    Form1.TreeView1.dbPopupMenu.Items[1].Caption := 'Ajouter un parent';

    Form1.TreeView1.dbPopupMenu.Items[2].Caption := 'Editer';

    Form1.TreeView1.dbPopupMenu.Items[3].Caption := 'Effacer';

    Form1.TreeView1.dbPopupMenu.Items[5].Caption := 'Rechercher';

end;




//Ajout de menus et de sous-menus
procedure Form1_OnShow (Sender: TObject; Action: string);
var   SubMenu  : TMenuItem;
      MenuItem : TMenuItem;
begin
   SubMenu := TMenuItem.Create (Form1);
   SubMenu.Caption := 'SubMenu';
   MenuItem := TMenuItem.Create (Form1);
   MenuItem.Caption := 'Item';
   MenuItem.OnClick := @MenuClick1;
   Form1.TreeView1.dbPopupMenu.Items.Insert(0, SubMenu);
   Form1.TreeView1.dbPopupMenu.Items[0].Add(MenuItem);
end;


procedure MenuClick1;
begin
    ShowMessage('Bonjour depuis le PopupMenu');
end;