Delphi, Lazarus

Я працюю в середовищі 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

такий результат.