2004 г.
Использование наследования форм для создания обработчика однотипных операций
Андрей Камбалов, Королевствo Delphi
Введение
Предположим вы создаете приложение с множеством документов. Каждый документ должен обладать
возможностью отправить на печать свое содержимое или предоставить возможность предварительного
просмотра его печатной формы на экране или предоставить возможность сохранить данные во внешний файл.
Таким образом имеем на основной форме набор из трех кнопок: Печать, Промотр, Экспорт.
Каждая форма должна обрабатывать запросы: активировать кнопку и выполнить действие для этой кнопки.
Создание базовой формы
Для начала определим типы кнопок, которые необходимо обрабатывать. Для этого создадим тип TPrButton
как набор.
Далее воспользуемся механизмом наследования и создадим базовую форму, у которой определим:
- виртуальную функцию ButtonUpdate, переназначение которой позволит наследуемой форме обрабатывать событие "Активна та или иная кнопка или нет". Параметром данной функции служит тип обрабатываемой кнопки. Если функция возвращает True, то кнопка активна, иначе - неактивна. По умолчанию всегда возвращается False.
- виртуальную процедуру ButtonExecute, предназначение которой обработать событие нажатия кнопки. Параметром передается тип обрабатываемой кнопки.
На основе выше изложенного имеем:
type
TPrButton = (prPrint, prPreview, prExport);
TfrmParent = class(TForm)
procedure FormClose(Sender: TObject; var Action:
TCloseAction);
private
public
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;
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К)
