Использование наследования форм для создания обработчика однотипных операций

2004 г.

Использование наследования форм для создания обработчика однотипных операций

Введение

Предположим вы создаете приложение с множеством документов. Каждый документ должен обладать возможностью отправить на печать свое содержимое или предоставить возможность предварительного просмотра его печатной формы на экране или предоставить возможность сохранить данные во внешний файл. Таким образом имеем на основной форме набор из трех кнопок: Печать, Промотр, Экспорт. Каждая форма должна обрабатывать запросы: активировать кнопку и выполнить действие для этой кнопки.

Создание базовой формы

Для начала определим типы кнопок, которые необходимо обрабатывать. Для этого создадим тип TPrButton как набор.
Далее воспользуемся механизмом наследования и создадим базовую форму, у которой определим:

виртуальную функцию ButtonUpdate, переназначение которой позволит наследуемой форме обрабатывать событие "Активна та или иная кнопка или нет". Параметром данной функции служит тип обрабатываемой кнопки. Если функция возвращает True, то кнопка активна, иначе - неактивна. По умолчанию всегда возвращается False.
виртуальную процедуру ButtonExecute, предназначение которой обработать событие нажатия кнопки. Параметром передается тип обрабатываемой кнопки.

На основе выше изложенного имеем:

type TPrButton = (prPrint, prPreview, prExport); TfrmParent = class(TForm) procedure FormClose(Sender: TObject; var Action:
TCloseAction); private { Private declarations } public { Public declarations } function ButtonUpdate(PrButton: TPrButton):
Boolean; virtual; procedure ButtonExecute(PrButton: TPrButton);
virtual; end;

Создание главной формы

Займемся созданием главной формы. Главная форма должна предоставляить механизм обработки набора кнопок. Для этого на главной форме создадим список операций (ActionList) и определим 3 операции (ActionItem): ActionPrint, ActionPreview, ActionExport. Создадим панель инструментов с набором кнопок: Печать, Предварительный просмотр и Экспорт и назначим этим кнопки соответствующие операции. Для каждой операции назначим один и тот же метод обработки событий OnUpdate

procedure TfrmMain.ActionPrButtonUpdate(Sender: TObject); var m: TPrButton; begin TAction(Sender).Enabled := False; if Sender = ActionPrint then m := prPrint else if Sender = ActionPreview then m := prPreview else if Sender = ActionExport then m := prExport else Exit; try TAction(Sender).Enabled := Assigned(Application.
MainForm.ActiveMDIChild) and (Application.MainForm.Active
MDIChild is TfrmParent) and TfrmParent(Application.
MainForm.ActiveMDIChild).ButtonUpdate(m); except TAction(Sender).Enabled := False; end; // try Application.ProcessMessages; end; и OnExecute procedure TfrmMain.ActionPrButtonExecute(Sender: TObject); var m: TPrButton; begin if Not Assigned(Application.MainForm.ActiveMDIChild) or Not (Application.MainForm.ActiveMDIChild is TfrmParent)
then Exit; if Sender = ActionPrint then m := prPrint else if Sender = ActionPreview then m := prPreview else if Sender = ActionExport then m := prExport else Exit; TfrmParent(Application.MainForm.ActiveMDIChild).
ButtonExecute(m); end;

Создание наследуемой формы

Для создания наследуемой формы воспользуемся следующим механизмом:

Выбираем в меню "File" -> "New..."
В форме "New Itmes" переходим на вкладку с названием нашего проекта (в примере Project1)
В списке форм выбираем базовую форму (frmParent) и нажимаем Ok.

В итоге создается новый модуль.
Далее необходимо написать собственные обработчики.

Рассмотрим пример на основе формы frmWindow1. Переписываем методы ButtonUpdate и ButtonExecute.

type TfrmWindow1 = class(TfrmParent) ... public function ButtonUpdate(PrButton: TPrButton):
Boolean; override; procedure ButtonExecute(PrButton: TPrButton);
override; end;

и создаем собственные обработчики методов:

function TfrmWindow1.ButtonUpdate(PrButton: TPrButton):
Boolean; begin Result := (PrButton = prPrint) and cbCanPrint.
Checked or (PrButton = prPreview) and cbCanPreview.
Checked or (PrButton = prExport) and cbCanExport.
Checked; end; procedure TfrmWindow1.ButtonExecute(PrButton:
TPrButton); begin case PrButton of prPrint: ShowMessage( Caption + '
Print'); prPreview: ShowMessage( Caption + '
Preview'); prExport: ShowMessage( Caption + '
Export'); end; end;

Таким образом при создании нескольких окон класса TfrmWindow1 для каждого окна будет свой обработчик событий.

Использование форм, созданных ранее

Если необходимо использовать формы, созданные ранее, то нет необходимости переписывать их заново. Необходимо проделать следующие операции:

в модуле PAS необходимо заменить конструкцию TOldForm = class(TForm) на TOldForm = class(TfrmParent)
в модуле DFM необходимо заменить конструкцию object OldForm: TOldForm на inherited OldForm: TOldForm
написать свои обработчики методов.

Скачать пример: MultiForm.zip (6К)