3. Организация взаимодействия форм
Если одна форма выполняет какие-либо действия с другой формой, то в списке uses раздела implementation (ИЛИ interface) модуля первой формы должна быть ссылка на модуль второй формы.
Пример. Организация взаимодействия форм.
Приложение включает в свой состав две формы — Form1 и Form2, для которых имеются модули Unit1 и Unit2 соответственно. Ниже приводится код модуля Unit1 первой формы Form1.
unit Uniti;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForml = class(TForm)
Buttonl: TButton;
procedure ButtonlClick(Sender: TObject);
end;
var
Formi: TForml;
implementation
// Ссылка на модуль второй формы uses Unit2;
{$R *.DFM}
procedure TForml.ButtonlClick(Sender: TObject);
begin
// Операция со второй формой
Form2.Show;
end;
end.
При нажатии на кнопку Buttonl на первой форме на экране отображается вторая форма, до этого невидимая. Так как из модуля первой формы осуществляется операция со второй формой, то в разделе implementation первого модуля помещен код uses Unit2.
Ссылку на модуль другой формы можно устанавливать программно, но Delphi позволяет выполнить автоматизированную вставку ссылки следующим образом. При задании команды File | Use Unit (Файл | Использовать модуль) появляется диалоговое окно Use Unit (Выбора модуля) (рис. 7). После выбора нужного модуля и нажатия кнопки ОК ссылка на него добавляется автоматически.
Рис. 7. Окно выбора модуля
Если ссылка на требуемый модуль отсутствует, то при компиляции программы появляется диалоговое окно Information (Информация) (рис. 8). В нем сообщается о том, что одна форма использует другую, но модуль второй формы отсутствует в списке uses модуля первой формы. Для автоматического добавления ссылки на модуль достаточно нажать кнопку Yes.
Рис. 8. Диалог добавления ссылки на модуль
Форма может выполнять различные операции не только с другой формой, но и с отдельными ее компонентами. В этом случае также нужна ссылка на модуль другой формы.
Пример. Обращение к компоненту другой формы.
uses Unit2;
procedure TForml.Button2Click(Sender: TObject);
begin
Labell.Caption := Form2.Editl.Text;
end;
При нажатии кнопки Button2 формы Formi в надписи Labell отображается текст редактора Editl, расположенного на форме Form2.
Можно выполнять операции с компонентами формы, минимизированной или невидимой на экране. Однако в любом случае форма уже должна быть создана перед выполнением любых операций с ней.
4. Особенности модальных форм
Модальной называется форма, которая должна быть закрыта перед обращением к любой другой форме данного приложения. Если пользователь пытается перейти в другую форму, не закрыв текущую модальную форму, то Windows блокирует эту попытку и выдает предупреждающий сигнал. Запрет перехода в другую форму при незакрытой модальной форме относится только к текущему приложению, и пользователь может активизировать любое другое приложение Windows.
Отметим, что программно возможен доступ к компонентам любой созданной формы приложения, несмотря на наличие в данный момент времени открытой модальной формы.
Модальные формы часто называют диалогами, или диалоговыми панелями, существуют и немодальные диалоги. Для выполнения различных операций в Windows часто используются стандартные диалоговые формы, с которыми пользователь имеет дело при работе с приложениями. Такие формы называются общими, или стандартными диалогами, для работы с ними Delphi предлагает специальные компоненты. Они рассматриваются в этой главе отдельным пунктом. Типичным примером модальной диалоговой формы является диалоговое окно About (О программе).
Диалоговые формы обычно используются при выполнении таких операций, как ввод данных, открытие или сохранение файлов, вывод информации О приложении, установка параметров приложения. ля отображения формы в модальном режиме служит метод showModal.
Пример. Отображение модальной формы.
procedure TForml.mnuAboutClick(Sender: TObject);
begin
fmAbout.ShowModal;
end;
Выбор пункта меню rmuAbout приводит к отображению формы fmAbout в модальном режиме. Пункт меню может иметь заголовок (например, О программе), устанавливаемый с помощью свойства caption. Пользователь может продолжить работу с приложением, только закрыв эту модальную форму.
Многие формы можно отображать и в немодальном режиме, например следующим образом:
fmAbout.Show;
При закрытии модальной формы функция showModal возвращает значение свойства ModalResult типа TModalResuit, присваиваемое свойству при этом. Возможные значения этого свойства рассматриваются при описании кнопок. Напомним, что метод show является процедурой и результат не возвращает.
При закрытии любая форма возвращает код результата. Этот код обычно представляет интерес при организации диалогов. После закрытия диалога возвращаемый код результата можно проанализировать и выполнить соответствующие действия. В общем случае в зависимости от кода результат закрытия модальной формы программируется разветвление на несколько направлений.
Пример. Управление диалоговой формой.
// Процедура находится в модуле формы Forml
procedure TForml.btnDialogClick(Sender: TObject);
var rez :TModalResult
begin
// Вызов модальной формы (диалога)
rez := fmDialog.ShowModal
// Анализ способа закрытия модальной формы //(диалога)
if rez = mrOK then
MessageDlg('Диалог принят.', mtlnformation, [mbYes], 0); if rez = mrCancel then
MessageDlg('Диалог отменен.', mtlnformation, [mbYes], 0);
end;
// Процедуры находятся в модуле формы fmDialog
// Закрытие формы и установка значения mrOK коду //результата
procedure TfmDialog.btnCloseClick(Sender: TObject);
begin
Modalesul := mrOK;
end;
// Закрытие формы и установка значения mrCancel коду //результата
procedure TfmDialog. btnCancelClick(Sender: TObject);
begin
ModalResult := mrCancel;
end;
Кнопка btnDialog формы Forml открывает диалоговую форму fmDialog. После закрытия диалога кнопкой btnciose или btnCancel выполняется анализ кода результата закрытия и вывод на экран.
Как правило, управление кодом результата диалога выполняется не программно (через свойство ModalResult формы), а с помощью кнопок. Чаще всего диалоговая форма содержит кнопки подтверждения и отмены выполненных операций. Кнопка подтверждения диалога в зависимости от назначения может иметь разные названия, такие как ОК, Ввод, Открыть, Yes. Кнопка отмены диалога часто имеет названия Отмена и Cancel.
Как отмечалось ранее, закрыть форму можно, используя свойство ModalResult кнопки. Если свойство имеет значение, отличное от mrNone, то при нажатии на кнопку форма автоматически закрывается. При закрытии форма в качестве результата возвращает значение, определяемое свойством ModalResult кнопки, закрывшей эту форму.
Пример. Задание кнопок закрытия формы.
procedure TfmDialog.FormCreate(Sender: TObject);
begin
fmDialog.BorderStyle := bsDialog;
btnOK.Caption := 'OK';
btnOK.Default := true;
btnOK.ModalResult:=mrOK;
If btnCancel.Caption := 'loiaia'; btnCancel.Cancel := true;
btnCancel.ModalResult := mrCancel;
end;
В приведенной процедуре устанавливаются значения свойств кнопки btnOK подтверждения и кнопки btnCancel отмены диалога fmDialog. При нажатии любой из них форма автоматически закрывается (без выполнения обработчиков события нажатия кнопок) и возвращает соответствующий результат. Напомним, что обычно свойства кнопок и самой модальной формы задаются через Инспектор объектов при проектировании приложения. В приведенном примере для наглядности некоторые свойства устанавливаются в обработчике события onCreate формы.
При закрытии формы методом close всегда возвращается значение mrCancel ее свойства ModalResult. Скрытие формы методом Hide не изменяет значение свойства ModalResult.
В принципе разработчик может самостоятельно создать любую модальную форму, однако полезно учитывать, что для выполнения типовых действий Delphi предлагает ряд предопределенных диалогов. Наиболее простые диалоги реализуются с помощью специальных процедур и функций, в более общих случаях удобно использовать специальные компоненты — стандартные диалоги. Кроме того, ряд диалоговых форм расположены на странице Dialogs (Диалоги) в Хранилище объектов.