Поддержка JavaScript отключена
SBP-Program | |||||||
На главную |   | ||||||
Pascal  |
Delphi, LazarusDelphi, Lazarus на примерахЯ работаю в среде Lazarus. Если вы используете Delphi, то и в этой среде все примеры данной статьи будут работать. ]]> Для создания 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): Получаем: ![]() Программирование
|
  | |||||
 
|
 
|
||||||