Как создать потомка VCL-класса?

← →
PAI (2003-05-19 18:53) [0]

Подскажите (если есть " под рукой" пример), как создать класс,
потомок VCL-компонента, например TPaintBox-а. Можно
ли создать общего потомка от TPainBox и не VCL-класса.
Или подскажите, где посмотреть "зримый" пример.
Заранее спасибо.
Андрей

← →
AlexRush (2003-05-19 19:06) [1]

>>PAI (19.05.03 18:53) >> "как создать класс,
потомок VCL-компонента, например TPaintBox-а" - как обычно
TMyPaintBox = class(TPaintBox)
....
end;
>> "Можно ли создать общего потомка от TPainBox и не VCL-класса.
Или подскажите, где посмотреть "зримый" пример."
- общий потомок: это множественное наследование. В ObjectPascal его можно реализовать только через интерфейсы.

IActiveFormX = interface(IDispatch)
....
end;

TActiveFormX = class(TActiveForm, IActiveFormX)
.....
end;
А зримый пример - создай новыю ActiveX форму и посмотри сгенеренные исходники.

← →
Юрий Зотов (2003-05-19 19:18) [2]

http://delphimaster.net/view/1-1053326327/

← →
PAI (2003-05-19 19:36) [3]

Спасибо!

Как создать потомка VCL-класса? Найти похожие ветки