Delphi - сбориник статей

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


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

  • Выбираем в меню "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 для каждого окна будет свой обработчик событий.



Содержание раздела