Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Обучение от Mail.Ru Group.
Онлайн-университет
для программистов с
гарантией трудоустройства.
Набор открыт!

2004 г.

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

Андрей Камбалов, Королевствo Delphi

Введение

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

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

Для начала определим типы кнопок, которые необходимо обрабатывать. Для этого создадим тип 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 для каждого окна будет свой обработчик событий.

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

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

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

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

Новости мира IT:

Архив новостей

Последние комментарии:

Loading

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 985 1945361
Пресс-релизы — pr@citforum.ru
Обратная связь
Информация для авторов
Rambler's Top100 TopList liveinternet.ru: показано число просмотров за 24 часа, посетителей за 24 часа и за сегодня This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2015 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...