Для роботи з формою призначений компонент Form класу TForm. Зі створення форми починається конструювання Application. На формі розміщуються візуальні компоненти, які утворюють інтерфейсну частину додатка, а також не візуальні компоненти. Таким чином, форма є компонентом, який є контейнером для всіх інших компонент.
Якщо одна форма виконує яку-небудь дію з іншою формою то в списку uses розділу implementation модуля першої форми повинно бути посилання на модуль другої форми. Для ілюстрації розглянемо приклад, який включає в себе 2 форми – Form1 i Form2, які мають модулі Unit1 і Unit2 відповідно.
Unit Unit1; interface uses Windows, Messages, …;
Type TForm1=class(TForm) Button1:TButton;
Procedure Button1Click(Sender:TObject);
Private
{private declarations}
Public
{public declarations}
End; var Form1:TForm;
Implementation uses Unit2; {$R *.DFM}
Procedure TForm1.Button1Click(Sender:TObject);
Begin form2:=Tform2.create(self); end; end.
Натиснувши на кнопку Button1 першої форми на екрані відобразиться друга форма, яка була невидима до того. Оскільки з модуля першої форми виконується операція над другою формою, то в розділі implementation першого модуля вставимо код uses Unit2; Посилання на модуль другої форми можна встановлювати програмно, але Delphi дозволяє виконати цю операцію автоматично. Форма може також виконувати різні операції не тільки з іншою формою, але і з її компонентами. В цьому випадку також потрібно посилання на модуль іншої форми.
55. Створення заставки програми. Створення інформаційного вікна (About…).
Перед появою головного вікна у всіх серйозних додатках спочатку з'являється заставка. Для створення заставки виконуємо наступну послідовність дій: Починаємо створення нового додаток командою "New Application" ("Новий додаток") з меню "File" ("Файл"). Додайте ще одну форму: "New Form" ("Нова форма") з меню "File" ("Файл"). Це вікно і буде заставкою. У нього потрібно прибрати рамку зі смугою заголовка, встановивши властивість "BorderStyle" в "bsNone". Тепер можна сміливо розробити дизайн вікна заставки. З меню "Project" ("Проект") вибрати команду "Options" ("Опції"). Зайти на закладку "Forms" ("Форми") і Form2 зі списку автоматично створюваних форм (Auto-Create forms) перенести в список доступних форм (Available forms). На форму-заставку із закладки System винести компонент Timer. У його властивості Interval встановити значення 5000, а в події OnTimer написати: Timer1.Enabled: = false; Це зроблено для того, щоб заставка була видна в період зазначеного часу - 5000 мілісекунд, тобто 5 секунд. Перейти в файл проекту, натиснувши Ctrl + F12 і вибравши Project1. Вихідний код повинен виглядати так:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$ R *. RES} begin Application.Initialize; Application.CreateForm (TForm1, Form1); Application.Run; end. Тепер ми внесемо сюди трохи змін і код повинен стати таким: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$ R *. RES} begin Application.Initialize; Form2: = TForm2.Create (Application); Form2.Show; Form2.Update; while Form2.Timer1.Enabled do Application.ProcessMessages; Application.CreateForm (TForm1, Form1);Form2.Hide; Form2.Free; Application.Run; end.
Раз вже ми заговорили про вікно About, давайте його і спробуємо додати в наш проект. Отже, вибираємо File - New - Other. Потрібний нам об'єкт називається About box і розташовується в категорії Delphi Files: Delphi Files в Object Repository (об'єкт About box) Після натискання OK в нашому проекті з'явилася нова форма з ім'ям AboutBox і кількома компонентами - текстовими мітками, картинкою і кнопкою. Зручно, не чи правда? Залишається лише вписати назву програми, версію, вставити потрібну іконку і вікно повністю готове. Робиться буквально за хвилину. Створити таке вікно вручну нескладно, але все ж це займе більше часу.
