Pascal, Delphi, Lazarus

Я работаю в среде Lazarus. Если вы используете Delphi, то и в этой среде все примеры данной статьи будут работать.

• Паскаль на примерах
• TPopupMenu
• TMainMenu
• TCheckBox

]]>

Для создания TPopupMenu разместим на форме соответствующий компонент

из панели Standard:

Это невизуальный компонент, при работе приложения он не будет виден.

Добавим в наше всплывающее меню пункт: «Show». Для этого правой кнопкой по добавленному компоненту TPopupMenu — > Edit, получаем:

В свойствах объекта NewItem1, в поле Caption запишем «Show»:

Открываем вкладку «События» на предыдушей картинке и два раза кликаем по полю с курсором правее надписи «OnClick»:

В коде формы получаем заготовку процедуры-обработчика. В неё добавим код:

Теперь сделаем активной форму и получим заготовку процедуры-обработчика события «OnMouseUp»:

В код процедуры-обработчика добавим:

Запускаем на исполнение, вводим любую строку в поле ввода, правой кнопкой по свободному полю формы:

видим наше всплывающее меню, кликаем по нему и получаем сообщение со строкой из поляввода.

TMainMenu — это компонент для создания главного меню. Для создания TMainMenu разместим на форме соответствующий компонент из панели Standard:

Это невизуальный компонент, при работе приложения он не будет виден.

Добавим в наше меню пункт: «Файл». Для этого правой кнопкой по добавленному компоненту TMainMenu — > Edit, получаем:

Кликаем по New Item1 и свойствах, в поле Caption, укажем слово «Файл». Получаем:

Теперь создадим выпадающее меню для пункта «Файл». Правой кнопкой по TMainMenu — > Edit, далее кликаем правой кнопкой по кнопке «Файл» и выбираем «Создать подменю». В свойствах этого подменю, в поле Caption, запишем «Show»:

Открываем вкладку «События» для кнопки «Show» и два раза кликаем по полю с курсором правее надписи «OnClick». В коде формы получаем заготовку процедуры-обработчика. В неё добавим код:

Запускаем на исполнение, выбираем в меню «Файл» строку «Show» и получаем:

TCheckBox – это элемент управления флажок. В его свойствах, в строке «Caption» устанавливаем подпись к нему. Положение подписи справа/слева определяется свойством «Alignment». Если флажок установлен, то свойство «Checked» равно true.Установим флажок TCheckBox и покажем процедуру обработки установки или снятия флажка (событие OnClick):

Получаем:

Программирование