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