ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Обработка событий выбора пунктов меню имеет вид{ Обработка меню ВИД®ПОКАЗАТЬ СООБЩЕНИЕ } 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 Не нашли, что искали? Воспользуйтесь поиском:
|