Topic: Tablegrid popmenu Add submenu ?
Hi,
Is it possible to add submenu in popmenu (tablegrid) ?
Regards, С уважением
Pierre Perreault
QC, Canada
My Visual Database → General → Tablegrid popmenu Add submenu ?
Hi,
Is it possible to add submenu in popmenu (tablegrid) ?
Regards, С уважением
Pierre Perreault
QC, Canada
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
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;
Thanks,
Спасибо
My Visual Database → General → Tablegrid popmenu Add submenu ?
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi