Logo    
Продукты, технологии Проекты, внедрения Новости мира IT Форумы Курилка Новые публикации Учебный центр
CitForum    CITForum на CD Море(!) аналитической информации! :: CITFORUM.RU
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware HOWTO

28.10.2004

[an error occurred while processing this directive]
Google
WWW CITForum.ru

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К)

Подписка на новости библиотеки:

Ближайшие курсы ЦИТ:

1-4 ноября 2004, Москва
Современные технологии анализа и проектирования информационных систем

1-5 ноября 2004, Москва
Основы передачи данных

9-10 ноября 2004, Москва
Основы моделирования бизнес-процессов и спецификации требований к ПО

Новые поступления в on-line библиотеку:

26 октября

  • Руководство FreeBSD (FreeBSD Handbook)
  • Спокойная революция
  • TV-тюнинг для компьютера
  • Новое поколение DVD
  • С видеокассеты на DVD

    21 октября

  • Обзор технических решений построения городской операторской сети на базе технологии "Optical Ethernet"
  • Алгоритм Rsync
  • Заметки о Linux-консоли
  • База данных без BDE

    19 октября

  • Функциональная безопасность программных средств
  • Технологические процессы и стандарты обеспечения функциональной безопасности в жизненном цикле программных средств
  • Так как же восстановить данные таблицы?
  • Использование CAST и табличных функций в PL/SQL

    14 октября

  • Разрезая биллионы
  • Платформа, которой не существует
  • Intel 9xx: время тестов
  • Сбалансированная система показателей: краткий обзор рынка программного обеспечения
  • Кросс-браузерность: теория и практика

    12 октября

  • В борьбе за каждый миллиметр
  • Хранилища данных и семантические разрывы
  • BI и ССП: связь между ними
  • Десять заповедей резервного копирования

    7 октября

  • XML-СУБД Sedna: технические особенности и варианты использования
  • Хранилище данных: вопросы и ответы
  • Порядок разработки ETL-процессов

    5 октября

  • Использование сокетов в Delphi
    Часть первая: стандартные сокеты
    Часть вторая: сокеты Windows
  • Задачи и аналитическая платформа для ВРМ
  • Методики, технологии и инструменты ВРМ
  • Выбор системы управления эффективностью бизнеса: решающие факторы

    30 сентября

  • MySQL: Руководство разработчика
  • MySQL: Руководство по ODBC и MyODBC

    28 сентября

  • СУБД ЛИНТЕР. Технический обзор
  • Новое в СУБД ЛИНТЕР 6.1
  • Использование ЛИНТЕР в качестве встроенной СУБД

    21 сентября

  • Материалы книги П.Б.Храмцова "Система доменных имен"
  • Храните свои терабайты в ящике
  • Тестирование контроллеров iSCSI
  • Девять ошибок, которые могут помешать работе SAN

    16 сентября

  • Курс лекций В.В.Воеводина "Параллельная обработка данных"
  • Заморочки от Oracle, или знать бы, где упасть
  • Реинжиниринг: многое в малом
  • CASE-технологии: что, когда, как?

    14 сентября

  • Сильнее угроза - крепче защита (обзор 16 инструментов)
  • GnuPG - OpenSource шифрование и цифровые подписи
  • Оптимизация не-HTML-сайтов для поисковых серверов
  • Новые графические супер-карты от ATI и NVidia
  • Новая жизнь Ethernet

    Все новости >>>



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

    Реклама на IT-портале citforum.ru

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