Советы по Delphi


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]




- Начало -  - Назад -  - Вперед -