Турбо Паскаль 6.0




Порождение.


Вы можете легко породить объектный тип из существующего.

PNewScrollBar = ^TNewScrollBar; TNewScrollBar = object(TScrollBar) end;

Вы еще не имеете экземпляров этого объектного типа. До объявления объектов TNewScrollBar Вам необходимо определить новые методы или перекрыть некоторые методы TScrollBar и, возможно, добавить некоторые новые поля; иначе не существует причин для создания нового типа объекта. Новые или измененные методы и поля добавляют функциональность к TScrollBar. Ваш новый метод Init будет определять значения по умолчанию для Ваших новых объектов.




Содержание  Назад  Вперед