TMenuItem - создание и добавление событий во время работы приложения
Вы можете заполнить меню следующим образом:
|
...
ppmProgram: TMenuItem;
Private
procedure PopulateMenu(Sender: TObject);
procedure NewShortcutClick(Sender: TObject);
...
procedure TForm1.PopulateMenu(Sender: TObject); var ppmAddNewShortcut : TMenuItem; begin ppmAddNewShortcut := TMenuItem.Create(Self); ppmAddNewShortcut.Caption := '&Тест'; ppmAddNewShortcut.OnClick := NewShortcutClick; ppmProgram.Add(ppmAddNewShortcut); end; procedure TForm1.NewShortcutClick(Sender: TObject); begin { Здесь введите код для "Тест" } end; |
[001623]
