Работа с формой

Форма – основной компонент приложения Delphi, на котором могут располагаться другие компоненты.В таблице 10 представлены свойства компонента Form, которые часто используются.

Таблица 10 - Свойства компонента Form

КомпонентForm имеется множество методов. Рассмотрим некоторые из них.

Ø OnCreate – создание формы. Можно использовать для установки начальных значений переменным. В данном методе нельзя обращаться к имени формы, т.к. ее еще нет!

Ø OnShow – показ формы. Возникает всегда при обращении к видимости формы. Можно использовать для установки начальных значений переменным.

Ø OnClose – закрытие формы. Можно использовать для освобождения связи переменных и памяти.

Ø OnCloseQuery – обрабатывается перед закрытием формы. Можно написать диалог с пользователем, если требуется подтверждение на закрытие формы. Если выходной параметр (var CanClose: Boolean) не будет равен True, то форма не будет закрыта.

Ø OnPaint – перерисовка изображения на форме

Ø OnResize – метод формы при изменении ее размеров.

Операционная среда Windows(окна) позволяет работать сразу с несколькими формами (окнами), поэтому приложение Delphi может быть многооконным.

Для того, чтобы добавить форму в имеющееся приложения, выберите пункт главного меню Delphi File/New Form. Сохраните модуль новой формы и подключите его к проекту. Работа с новой формой не отличается от работы с главной формой проекта.

Первая форма проекта будет главной (она будет открываться при запуске приложения). Чтобы изменить иерархию форм, откройте окно Options главного меню Delphi. На вкладке Formsможно в списке «Главная форма» (Main form) выбрать другую форму.

Чтобы новая форма была видна в нужном модуле проекта, не забудьте добавить имя модуля новой формы в раздел Uses требуемого модуля.

Если новая форма содержит кнопки BitBtn и установлено свойство ModalResult(свойство ModalResult устанавливается автоматически при установке свойства Kind), то нажатие на любую из них (кроме кнопки Help) приведет к закрытию формы. Форма будет закрыта с модальным результатом, которое соответствует свойству ModalResult (нажата кнопка OK – модальный результат mrOK и т.д.).

Пример 22. Работа с двумя формами. Внешний вид первой формы изображен на рисунке 37. Внешний вид второй формы изображен на рисунке 38.

Рисунок 37 - Первая форма на этапе конструирования

Рисунок 38 - Внешний вид второй формы на этапе конструирования

Для всех кнопок обеих форм установлено только свойство Kind. Логика работы приложения такая: при запуске видна первая форма с заголовком Form1. При нажатии на кнопку Yes открывается вторая форма. Если пользователь нажимает кнопку Yesвторой формы, то она закрывается, а заголовок первой меняется на значение заголовка надписи второй формы (рисунок 39).

Рисунок 39 - Внешний вид первой формы во время работы приложения, если пользователь выбрал кнопку Yes

Если пользователь выбирает кнопку No, то форма также закрывается, но заголовок первой формы будет иметь значение «Пока» (рисунок 40).

Рисунок 40 - Внешний вид первой формы во время работы приложения, если пользователь выбрал кнопку No

Код программы:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if Form2.ShowModal=mrYes then

Form1.Caption:=Form2.Label1.Caption

else Form1.Caption:='Пока';

end;

Пример 23. Добавим пример 20 кнопкой, при нажатии на которую рассчитывается производная функции, результаты в виде графика появляются на другой форме.

Добавьте на форму кнопку (BitBtn3) «Расчет производной». Добавьте в проект новую форму, на которой расположите компонент Chart и кнопку для закрытия формы BitBtn. В раздел uses первого модуля добавьте имя нового модуля. Напишите код нажатия кнопки «Расчет производной»:

procedure TForm1.BitBtn3Click(Sender: TObject);

var

xn,xk,y1,y2,y,h:real;

begin

//ввод параметров расчета xn,xk,h

Form2.Chart1.SeriesList.Series[0].Clear;

Form2.Chart1.Visible:=true;

while xn<=xk do

begin

// расчет производной

y1:=(xn-h)*(xn-h);

y2:=xn*xn;

y:=(y2-y1)/h; //-----------

Form2.Chart1.SeriesList.Series[0].

AddXY(xn,y,'',clRed);

xn:=xn+h;

end;