Pascal, Delphi, Lazarus

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

TPopupMenu

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

из панели Standard: TPopupMenu

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

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

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

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

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

procedure TForm1.MenuItem1Click(Sender: TObject); begin ShowMessage(Edit1.Text); end;

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

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

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pointOfClick: TPoint; begin pointOfClick := GetClientOrigin; if(Button = mbRight) then begin PopupMenu1.PopUp(pointOfClick.x + X, pointOfClick.y + Y); end end;

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

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

TMainMenu

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

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

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

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

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

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

procedure TForm1.MenuItem2Click(Sender: TObject); begin ShowMessage(‘Message from Show’); end;

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

TCheckBox

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

procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.State = cbChecked then begin ShowMessage(‘Флажок установлен.’); end else if CheckBox1.State = cbUnchecked then begin ShowMessage(‘Флажок сброшен.’); end end;

Получаем: TCheckBox

TCheckBox.