Текущий архив: 2003.05.29;
Скачать: CL | DM;
Вниз
Как создать потомка 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]Спасибо!
Страницы: 1 вся ветка
Текущий архив: 2003.05.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
