Телефон: +7 (926) 245-03-63

Динамическое создание пункта всплывающего меню

Следующая статья: Динамическое создание таблицы и полей во время выполнения программы.

Как динамически создать пункт всплывающего меню?

Для динамического создания пункта меню необходимо создать процедуру в объекте (частный метод формы), примерно так:

procedure MyClick(Sender: TObject);

Затем, при создании нового пункта меню, назначить ему собственное событие OnClick следующим образом:

NewItem:=TMenuItem.Create(Self); NewItem.Caption:='Пункт меню'; NewItem.OnClick:=MyClick;