Обработка событий выбора пунктов меню имеет вид

{ Обработка меню ВИД®ПОКАЗАТЬ СООБЩЕНИЕ }

procedure TfrmMainMenu.DisplayMessage(Sender: TObject);

begin

muiMessage.Checked:= not(muiMessage.Checked);

lblMessage.Visible:= muiMessage.Checked;

end;

{ Обработка меню ВИД-ПОКАЗАТЬ РЕДАКТОР }

procedure TfrmMainMenu.DisplayEditor(Sender: TObject);

begin

muiEditor.Checked:= not(muiEditor.Checked);

memEditor.Visible:= muiEditor.Checked;

end;

{ Обработка меню СПРАВКА }

procedure TfrmMainMenu.AboutBox(Sender: TObject);

begin

Application.MessageBox('Это простой редактор, версия 0.01',

'О программе...', MB_OK);

end;

Всплывающее меню (TPopupMenu)

Компонент TPopupMenu появляется на экране, когда пользователь нажимает правую кнопку мыши на элементе управления, с которым оно ассоциировано. Чтобы связать с элементом управления всплывающее меню, нужно присвоить его свойству PopupMenu компонент типа TPopupMenu. Всплывающее меню, подобно главному меню, добавляется на форму во время разработки приложения в среде Delphi с помощью кнопки на стандартной панели инструментов и создается конструктором меню.

Пример 15.6. Создан простой редактор, содержащий главное и вплывающее меню. При нажатии правой кнопки мыши на форме появляется всплывающее меню, пункты которого совпадают с главным меню. Экранная форма программы показана на рис. 15.8.

Рис. 15.8. Экранная форма примера 15.6

Не нашли, что искали? Воспользуйтесь поиском: