2. Изменение свойств компонентов с помощью редактора кода.

• Задание:

1. Щёлкните дважды по кнопке Button1, затем по кнопке Button2. Зайдите в окно редактора кода.

Вы увидите текст программы, который Delphi написала самостоятельно.

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

2. Добавим свой текст в программу.

Текст, помещённый между двумя фигурными скобками “{}”, а также текст после двух символов “//” – это комментарий, который компилятором пропускается и нужен только программисту.

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=clRed;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Color:=clBlue;

end;

3. События.

• Задание:

1. Выделим форму Form1, щёлкнув один раз по форме. Затем в окне инспектора объектов перейдём на закладку События.

Рассмотрим некоторые, наиболее часто используемые события:

Событие	Описание
OnClick	Вызывается, когда пользователь нажимает и отпускает кнопку мыши, т.е. выполняет щелчок.
OnClose	Вызывается непосредственно перед закрытием формы.
OnCreate	Для формы – вызывается при создании формы, т.е. в самом начале выполнения программы.
OnDbClick	Вызывается, когда пользователь выполняет двойной щелчок.
OnKeyPress	Вызывается, когда пользователь нажимает любую клавишу С “читаемым” символом из набора ASCII.
Событие	Описание
OnMouseDown	Вызывается, когда пользователь нажимает кнопку мыши.
OnMouseMove	Вызывается при перемещении пользователем указателя мыши над данным элементом управления.
OnMouseUp	Вызывается, когда пользователь отпускает нажатую кнопку мыши.
OnResize	Вызывается, как только размеры компонента изменяются.

2. Выполним двойной щелчок на пустом месте рядом с названием события OnMouseMove. Откроется окно редактора кода, и вы попадёте в следующую процедуру, созданную Delphi:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

end;

3. Затем поочередно выделите компоненты Button1 и Button2 и выполните аналогичные действия – т.е. двойной щелчок возле названия события, чтобы создать соответствующие процедуры обработки сообщений.

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

end;

4. Внутри этих процедур (между словами begin и end) напишем текст программы для вывода соответствующего заголовка формы.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

Form1.Caption:=’Форма’;

end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

Form1.Caption:=’Кнопка1’;

end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

begin

Form1.Caption:=’Кнопка2’;

end;

5. Скомпилируйте программу и запустите её. Наведите курсор мыши на форму и кнопки, убедитесь в том, что при наведении курсора на эти компоненты в заголовке окна появляются соответствующие сообщение.

6. Добавить на форму кнопку “выход”.

• Задание:

Создать форму “Анкета студента” с данными о себе и фотографией.

1. Вставьте в форму текстовое поле (объект типа Label) с текстом “Анкета студента”.

Кроме свойств Width, Height, Font, Color, Name, Caption, Cursor, Enabled, Left, Top, объект типа Label владеет еще и такими:

Свойство	Описание свойства
Align	Выравнивание поля относительно объекта, который его содержит (формы)
Alignment	Выравнивание текста в границах поля
AutoSize	Приведение границ поля к границам текста
Visible	Видимость объекта
WordWrap	Перенесение слов текста в новую строку

2. Изменим значение свойства Caption с Label1 на текст “Анкета студента”.

3. Измените значения свойства Font (шрифт) этого текстового поля (полужирное начертание, размер текста – 10);

2. Аналогично вставьте в форму ещё несколько текстовых полей, где укажите свои биографические данные. Один из вариантов расположения текстовых полей показан на рис. 1, см. также рис.2.

Рис.1

3. Вставьте в форму объект типа Image (картинка). Для этого щелкните один раз левой клавишей мыши на пиктограмме Image закладки Дополнительные палитры компонентов и, например, в нижнем правом углу формы обведите контур для будущего изображения (фотографии), см. рис.1, рис.2.

Объект картинка (изображение) используют для вставки графических объектов из файлов типа *.bmp, *.emf, *.ico, *.wmf в форму. Кроме известных свойств Align, Width, Height, Name, Cursor, Enabled, Left, Top, Visible, объект обладает ещё такими свойствами:

Свойство	Описание
Center	Выравнивание рисунка по центру относительно содержащего его поля, принимает значения true или false.
Picture	Имя графического файла, задают в диалоговом окне.
Stretch	Приведение размера изображения к заданным размерам объекта, принимает значения true или false.
AutoSize	Приведение размера объекта к реальным размерам изображения, принимает значения true или false.

4. Измените для объекта Image свойства Height, Width, присвоив каждому значение равное 90.

7. Вставьте свою фотографию с помощью свойства Picture (иллюстрация) объекта Image1.

Сохраните созданную программу в своей папке.

Рис. 2

5. Измените заголовок формы на “Анкета студента”.

6. Создайте exe-файл проекта. Закройте Delphi. Выполните созданную программу.

• Задания:

1. Внести в программу “о сложении чисел” изменения так, чтобы она смогла выполнять вычитание, умножение, деление введённых пользователем чисел.

2. Использую функцию Val, предусмотреть вариант, когда пользователь заполняет текстовые поля с ошибками (вместо чисел вводит какие-то другие символы).

8