Переопределение свойств

← →
Deadlock © (2003-05-12 05:31) [0]

Вопрос наверна детский, но все прошу помощи: киньту сюда код переопеределения свойст для дочерних объектов. Ну например,

Type Parent = Class
FStyle : MyStyle;
Private
Procedure setstyle.......
Published
Property Style : MyStyle;
end;

Type Child = Class(Parent)
Private
FStyle : MyStyle;
Procedure setstyle.......
Published
Property Style : MyStyle;
End;

в программе у меня есть переменная типа Parent в которую можно присваивать, как родительский класс, так и дочерний. Как реализовать свойства класса, так что бы вызывалось свойство именно того класса какого присвоена моя переменная....

Хелп по делфи читал...ну нифига, как тама написано вызывается тока родительское свойство...

← →
MBo © (2003-05-12 06:23) [1]

Если я правильно понял вoпрос:
Обращение к свойству должно идти через виртуальные методы доступа Set/Get, тогда их можно в наследнике перекрыть.

примерно так
Type Parent = Class FStyle : MyStyle; Private Procedure setstyle.......; virtual; Published Property Style : MyStyle read FStyle write setstyle; end; Type Child = Class(Parent) Private //FStyle : MyStyle; Procedure setstyle.......; override; Published //Property Style : MyStyle; End;

Переопределение свойств Найти похожие ветки