4. Задание
-
Сделать шрифт выводимой реплики отличным от стандартного по виду, цвету и размеру.
Подсказка. Для метки в Object Inspector справа от свойства Font щелкнуть мышкой дважды.
-
Заменить простую кнопку Выход на более привлекательную кнопку.
Подсказка. Для замены кнопки надо удалить существующую, а другую найти в палитре компонентов на странице Additional. Она самая левая, называется BitBtn. Затем изменить ее вид в свойстве Kind.
-
Сделать так, чтобы при запуске проекта на экране вместо названия Label1 появлялся текст Первые успехи! , а после нажатия кнопки Приветствие появлялось новое сообщение Первые и не последние!
Подсказка. Изменить свойство Caption и для события OnClick внести изменения.
-
Запустить исполняемый файл Pr1.exe не в среде Delphi, а в Windows.
Подсказка. Выйти из Delphi в Windows. Использовать диспетчер программ или проводник Windows.
Практическая работа № 3 "Разработка проекта диалог"
1. Постановка задачи
Создать программу, с помощью которой можно выполнить: после запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter (см. рисунок 5).
Появляется вопрос: "Александр, ты любишь читать?". Если пользователь нажмет на клавишу Да, то должна появиться реплика: "Молодец!", если он нажмет на клавишу Нет, то появится реплика: "Почему же? Надо читать".
Для выхода из программы необходимо щелкнуть мышью на кнопке Выход.
Рисунок 5
Пояснение. Новым в этой программе является строка ввода Edit на странице палитры компонентов Standard и обработка события строки ввода - OnKeyPress.
2. План разработки программы
-
Открыть новый проект. Дать название форме Диалог.
-
Разместить на форме компоненты в соответствии с рисунком 6.
Рисунок 6
-
Сохранить проект под именем, например, Pr2.pas и Pr2.dpr
-
Запустить программу, затем закрыть окно проекта кнопкой Выход.
-
Выполнить следующие действия:
Выделенная компонента
Окно инспектора объектов
Имя свойства
Действие
BitBtn1
Properties
Caption
&Выход
Kind
bkClose
Label1
Properties
Caption
Введи свое имя и нажми Enter
Edit1
Events
OnKeyPress
If key=#13 then
begin
Label2.Caption:=Edit1.Text + ‘, ты любишь читать?’;
end;
Button1
Properties
Caption
Да
Events
OnClick
Label3.Caption:=‘Молодец!’;
Button2
Properties
Caption
Заменить на Нет
Events
OnClick
Label3.Caption:=‘Почему же? Надо читать.’;
Label2
Properties
Caption
Удалить название
Label3
Properties
Caption
Удалить название
-
Сохранить проект, запустить и протестировать его.