Назначение


Свойство обеспечивает доступ к всплыващему меню компонента.




Описание


Позволяет настроить всплывающее меню.




Примеры


// скрыть пункт меню
Form1.TreeView1.dbPopupMenu.Items[0].Visible := False;



// отключить пункт меню
Form1.TreeView1.dbPopupMenu.Items[0].Enabled := False;



// программно нажать на первый пункт меню (нумерация начинается с нуля)
Form1.TreeView1.dbPopupMenu.Items[0].Click;




// переименовывание пунктов меню
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.TreeView1.dbPopupMenu.Items[0].Caption := 'Новая дочерняя запись 2';
    Form1.TreeView1.dbPopupMenu.Items[1].Caption := 'Новая запись 2';
    Form1.TreeView1.dbPopupMenu.Items[2].Caption := 'Редактировать запись 2';
    Form1.TreeView1.dbPopupMenu.Items[3].Caption := 'Удалить запись 2';
    Form1.TreeView1.dbPopupMenu.Items[5].Caption := 'Найти 2';
end;




// добавление меню и подменю
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('Hello from PopupMenu');
end;