• Registered: 2018-07-14
  • Posts: 34

Topic: Tablegrid popmenu Add submenu ?

Hi,

Is it possible to add submenu in popmenu (tablegrid) ?

Regards, С уважением

Pierre Perreault
QC, Canada

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Tablegrid popmenu Add submenu ?

Hello.


Check out this example
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.
  • Registered: 2018-07-14
  • Posts: 34

Re: Tablegrid popmenu Add submenu ?

Ok for one level

I want with another level like

Item1(level 1) / subItem1 (level 2)
Item2(level 1) / subItem2 (level 2)
Regards,



Хорошо для одного уровня

Я хочу с другим уровнем, как

Item1 (уровень 1) / subItem1 (уровень 2)
Item2 (уровень 1) / subItem2 (уровень 2)

С Уважением,

Pierre Perreault

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Tablegrid popmenu Add submenu ?

procedure Form1_OnShow (Sender: string; 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.GridEmployees.dbPopupMenu.Items.Insert(0, SubMenu);
   Form1.GridEmployees.dbPopupMenu.Items[0].Add(MenuItem);
end;

procedure MenuClick1;
begin
    ShowMessage('Hello from PopupMenu');
end;
Dmitry.
  • Registered: 2018-07-14
  • Posts: 34

Re: Tablegrid popmenu Add submenu ?

Thanks,

Спасибо