ПРАКТИЧЕСКАЯ РАБОТА № 2
Begin
end;
Постановка задачи:
Разработать приложение, которое «приветствует» пользователя и форматирует введенный текст.
Порядок выполнения:
1. 
Создать в своей папке целевую папку «Delphi работа 1»;
2. Загрузить Delphi, сохранить новый проект в целевую папку;
3. 
Разработать форму в соответствии с образцом (рис.3), для этого установить на форму компоненты (вкладка Standard) и изменить им свойства в соответствии с таблицей.
| Объект | Свойство | Значение |
Метка
| Name | Label1 |
| Caption | Введите свое имя | |
| Font … | полужирный, 14 | |
|
Метка
| Name | Label2 |
| Caption | ||
| Font … | полужирный, 14,желтый | |
| Color | голубой | |
| AutoSize | False | |
Тестовое окно
| Name | Edit1 |
| Text | ||
| Font | полужирный, 14 | |
Командная кнопка
| Name | Button1 |
| Caption | Ok | |
| Font | полужирный, 12 | |
| Форма | Caption | Вежливая программа |
4. Создать процедуру обработки события OnClick для объекта Button1, для этого:
- выделить объект;
- на вкладке Events инспектора объектов выбрать событие OnClick, выполнить двойной щелчок в правом столбце строки;
5. В появившемся окне редактора кода ввести следующий код:
if trim(edit1.text)='' then label2.Caption :=' Забыл?'
else label2.Caption :='Привет,'+edit1.Text;
6. Проверить работу приложения, для этого:
- загрузить приложение (F9 или в главном меню Run/Run );
- в поле текстового окна ввести произвольный текст;
- щелкнуть по кнопке Ok;
- изменить введенный текст,Ок, просмотреть результат;
- закрыть окно приложения.
7. Добавить на форму новые компоненты c вкладки Standard (см.рис.4) и изменить для них свойства (см. таблицу).
Рис. 4 Вид формы
| Объект | Свойство | Значение |
| GroupBox | Name | GroupBox1 |
| Caption | Начертание | |
| Font … | ||
| CheckBox | Name | CheckBox1 |
| Caption | Полужирный | |
| Font … | ||
| CheckBox | Name | CheckBox2 |
| Caption | Курсив | |
| Font … | ||
| GroupBox | Name | GroupBox2 |
| Caption | Размер шрифта | |
| Font … | ||
| RadioButton | Name | RadioButton1 |
| Caption | ||
| Font | ||
| RadioButton | Name | RadioButton2 |
| Caption | ||
| Font | ||
| RadioButton | Name | RadioButton3 |
| Caption | ||
| Font | ||
| GroupBox | Name | GroupBox3 |
| Caption | Цвет | |
| Font … | ||
| RadioButton | Name | RadioButton4 |
| Caption | Красный | |
| Font | ||
| RadioButton | Name | RadioButton5 |
| Caption | Синий | |
| Font | ||
| RadioButton | Name | RadioButton6 |
| Caption | Зеленый | |
| Font |
8. Для объектов CheckBox1 и CheckBox2 введите код обработки события OnClick
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked =true then
Edit1.Font.Style := Edit1.Font.Style +[fsBold]
Else Edit1.Font.Style := Edit1.Font.Style -[fsBold]
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked =true then
Edit1.Font.Style := Edit1.Font.Style +[fsItalic]
Else Edit1.Font.Style := Edit1.Font.Style -[fsItalic]
end;
9. Для объекта RadioButton1 введите код обработки события OnClick:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.Font.Size:=12;
end;
10. Для объекта RadioButton4 введите код обработки события OnClick:
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
Edit1.Font.Color :=clRed;
end;
11. Самостоятельно создать процедуры для остальных объектов RadioButton.
12. Проверить работу приложения.
13. Сделать всплывающую подсказку для текстового окна, для этого:
- выделите объект Edit1;
- для свойства Hint введите значение ПОЛЕ ВВОДА
- для свойства ShowHint выберите значение True
14. Измените вид курсора при наведении на командную кнопку, для этого:
1. выделите объект Button1;
2. для свойства Cursor выберите из списка любое значение.
15. Проверить работу приложения, сохранить проект и результат показать преподавателю.
Задания для самостоятельного выполнения:
Доработать приложение для выполнения следующих функций:
1. изменение цвета формы (не менее 5-ти цветов);
2. удаление текста в поле ввода и в поле вывода;
3. возможность изменять видимость командной кнопки;
4. изменение размера шрифта в поле вывода с помощью объекта ScrollBar (полоса прокрутки).
Контрольные вопросы
- Как можно открыть существующий проект в Delphi?
- Сколько файлов создается при сохранении проекта?
- Как выделить несколько объектов на форме?
- Как можно изменить значение свойства объекта?
- Как загрузить проект на выполнение?
- Как формируется имя процедуры обработки события?
Тема:Базовые компоненты Delphi.
Цель работы:Получить навыки использования в программе базовых компонентов Delphi.