property dbPopupMenu: TPopupMenu
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;