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

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

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

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

---

---