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

Как изменить свойство потомка?   Найти похожие ветки 

← →
konstb   (2003-03-14 13:50) [0]

Имеем: TControl у которого есть protected сво-во Caption. У многих его потомков это св-во переведено в published.
Надо: по некоторому алгоритму изменить это св-во.
Проблема: в том, что оно protected, т.е. хотелось бы как-то проверить то, что оно стало published и его изменить (ну, не перечислять же всех возможных потомков!!!)
Вопрос: как?

---

← →
MBo ©   (2003-03-14 13:55) [1]

может, переформулируешь вопрос?
А получить доступ к этому свойству для потомков несложно:
TXControl=class(TControl);

...

TXControl(SomeControlAncestor).Caption:=...

---

← →
NAlexey ©   (2003-03-14 13:56) [2]

Не понятно, тебе надо менять protected свойство или выяснить является ли свойство published? Если первое то доступ к protected -
type
TMyClass = class(TSomeClass);
procedure SomeProcedure;
begin
TMyClass(TSomeClass(...)).ProtectedProperty := ....;
end;
если второе, попробуй RTTI...

---

Страницы: 1 вся ветка

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



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