Шаг 4 - Создание дочерней формы [TForm]

Во многих приложениях существует многооконный интерфейс. Все формы, визуально разрабатываемые в среде, являются потомками класса TForm. Команда для создания новой формы - File->New Form.

В приложении существует главная форма, автоматически создаваемая при запуске и закрывающая приложение при своем закрытии, и дочерние формы, которые могут статически существовать в приложении или динамически создаваться во время работы программы. Эти установки задаются по команде Project->Options на вкладке Forms.

В качестве примера я рассмотрю проект, выдающий по щелчку на кнопке дочернее окно с двумя полями ввода и добавляющий данные в объект TListBox. Формы надо спроектировать так:

gif/4_1.gif (5119 b)

Для кнопок Ok и Cancel значение ModalResult нужно установить в mrOk и mrCancel соответственно.

Вот код:

#include "unit2.h"
void __fastcall TForm1::EnterClick(TObject *Sender)
{
	Form2=new TForm2(this);
	if (Form2->ShowModal()==mrCancel) return;
	ListBox1->Items->Add(Form2->Edit1->Text+" - "+Form2->Edit2->Text);
}
//----------------------------------------------------------

void __fastcall TForm1::DeleteClick(TObject *Sender)
{
	ListBox1->Items->Delete(ListBox1->ItemIndex);
}

Вот и все! Этого кусочка текста хватает, чтобы отобразить две формы записной книжки. Честно говоря, в OWL пришлось бы написать побольше. Главное, не забывать включать заголовочный файл другой формы, и все ее компоненты будут как на ладони.


Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Аванесов Самвел.