Практическая работа № 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 (полоса прокрутки).

Контрольные вопросы

1. Как можно открыть существующий проект в Delphi?
2. Сколько файлов создается при сохранении проекта?
3. Как выделить несколько объектов на форме?
4. Как можно изменить значение свойства объекта?
5. Как загрузить проект на выполнение?
6. Как формируется имя процедуры обработки события?

Тема: Базовые компоненты Delphi.

Цель работы: Получить навыки использования в программе базовых компонентов Delphi.

Дата добавления: 2014-10-23