Обработка события Создание первой программы Составитель: Юрченко О.В.
Задачи практического задания Обработка события OnClick Научиться назначать названия компонентов Научиться работать с компонентом Edit
Задание: Создать приложение реагирующее на событие – нажатие на кнопку. Приложение должно состоять из: двух кнопок «Ок» и «Закрыть» одного однострочного редактора Edit одной метки Label
Действия, выполняемые приложением: при нажатии на кнопку «Ок» - в однострочном редакторе Edit должно появиться надпись при нажатии на кнопку «Закрыть» - приложение закрывается
Ход выполнения задания: Поместить на форму нужные компоненты (Ladel1, Edit1, Button1,Button2, Bevel1) Установить основные свойства компонентов (Caption, Font, Color) Связать события OnClick для компонентов Button1 и Button2, с процедурой обработки события имеющей имя Button1Click.
Процедуры для события OnClick: Procedure TForm1.Button1Clik (Sender: TObject); begin Edit1.Text: = Ура! Заработало!; end; Procedure TForm1.Button1Clik (Sender: TObject); begin Form1.Close; end;
Коротко о главном: Для работы с событиями служит вкладка Events окна Инспектор объектов (в нем перечислены все события для выбранного компонента) Самое распространенное событие большинства компонентов – OnClick (нажатие на компонент)
Дополнительные задания: Стандартный уровень сложности: 1. Создать приложение с полем Edit1 и двумя кнопками «Имя», «Отчистить». При нажатии на кнопку «Имя» в компоненте Edit1 должно отобразиться имя. А при нажатии на кнопку «Отчистить» поле ввода должно быть отчищено. 2. Создать приложение, где в поле Edit1 пользователь вносит текст. При нажатии на кнопку текст должен отобразиться в компоненте Label, который изначально имеет надпись «Нет сообщений»
Дополнительные задания: Повышенный уровень сложности: Создать приложение «Переключатель» с меткой Label и кнопкой. В начале на кнопке должна быть надпись «Включить», а в метке – «Выключено». Нажатие на кнопку приводит к появлению текста «Включено», а надпись на кнопке меняется на «Выключить». Повторное нажатие возвращает исходный текст.