Topic: [Скрипт] Добавление своего пункта меню для компонента TableGrid
Добавление своего пункта меню для компонента TableGrid
Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1
Скрипт:
procedure Form1_OnShow (Sender: string; Action: string);
var
MyItem1: TMenuItem;
begin
MyItem1 := TMenuItem.Create (Form1);
MyItem1.Caption := 'My Item1';
MyItem1.OnClick := @MenuClick1;
Form1.GridEmployees.dbPopupMenu.Items.Insert(0, MyItem1);
end;
procedure MenuClick1;
begin
ShowMessage('Hello from PopupMenu');
end;
begin
end.