Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c