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

TPopupMenu

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

из панели Standard: TPopupMenu

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

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

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

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

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

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

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

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

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

Наверх

TMainMenu

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

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

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

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

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

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

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

Наверх

TCheckBox

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

Получаем: TCheckBox


Быстрый поиск: Object Pascal.