Пример программирования события в Delphi 2010 для компонента «кнопка»
В данной теме будет рассмотрено как программируются события в системе Delphi. События в программах генерируются вследствие некоторых действий пользователя (клик мышью, перемещение мышки по экрану, нажатие клавиши и пр.) или программ.
Чтобы продемонстрировать работу события реализуем программу, в которой после нажатия на кнопке будет выведено сообщение «Привет!» в главной форме программы.
Выполнение
1. Создание Windows-приложения
Создаем Windows-приложение в Embarcadero RAD Studio 2010 — Delphi 2010.
2. Размещение компонент на форме
Выносим на главную форму приложения один компонент типа TLabel и один компонент типа TButton с такими именами (свойство Name компонента):
– Label1 — предназначен для выводе сообщения «Привет!»;
– Button1 — реализует обработку события вывода сообщения «Привет!».
После размещения компонентов форма имеет следующий вид (рисунок 1):
Рис. 1. Главный вид формы приложения
3. Проектирование интерфейса
Изменяем свойства Caption главной формы Form1 и кнопки Button1. Устанавливаем соответствующие названия (рисунок 2).
Рис. 2. Проектирование интерфейса
4. Программирование события
Остается только запрограммировать событие клика мышкой на кнопке «Вывести».
В результате нажатия на кнопке в операционной системе возникает событие нажатия на кнопке, которое в Delphi называется OnClick. Этому событию соответствует фрагмент программного кода. Система позволяет перепрограммировать код этого события на собственный, то есть в этом месте нужно написать свой собственный программный код.
Для написания кода реакции на событие необходимо активировать кнопку Button1, затем в Object Inspector выбрать вкладку Events (события), после чего в списке событий кнопки найти событие с названием OnClick и в свободной строке ввода сделать двойной клик мышкой (рис. 3). На рисунке 3 красным обведено событие OnClick в Object Inspector.
Рис. 3. Событие OnClick компонента Button1
Системой Delphi 2010 автоматически будет создан фрагмент программного кода, который будет вызываться каждый раз как только пользователь будет кликать мышкою на кнопке Button1. Созданный код имеет вид:
procedure TForm1.Button1Click(Sender: TObject); begin end;
Между словами begin и end вписываем следующий текст:
Label1.Caption := 'Привет!';
Таким образом, листинг процедуры обработки события имеет следующий вид:
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Привет!'; end;
5. Запуск программы
Осуществим запуск программы (клавиша F9). Сделаем клик на кнопке «Вывести». Результат выполнения программы изображен на рисунке 4.
Рис. 4. Вывод сообщения «Привет» после нажатия на кнопке
Итоги
В современных системах программирования, которые проектируються на платформе Windows (и на других платформах), взаимодействие пользователя с программой осуществляется с помощью событий.
В данной теме было рассмотрено программирование события OnClick на примере компонента «кнопка». Это событие широко используется в приложениях и фигурирует в некоторых других компонентах Delphi.
Похожие темы: