Наследование свойств другого класса

← →
TForm (2005-04-07 12:03) [0]

Подскажите как я могу унаследовать или создать заново свойство TabOrder для компоненты у которой его нет, скажем TLabel

← →
MBo © (2005-04-07 12:24) [1]

для TLabel это свойство бессмысленно, поскольку этот компонент - наследник TGraphicControl, и фокус принимать не способен.
А для наследников TWindowControl достаточно опубликовать уже имеющееся свойство - просто объявить его в секции published

TabOrder появляется у TWinControl, мне кажется, что проще у него скопировать все, что связано с Tab"ом и добавить в свой класс.
procedure UpdateTabOrder(Value: TTabOrder); property TabOrder: TTabOrder read GetTabOrder write SetTabOrder default -1; property TabStop: Boolean read FTabStop write SetTabStop default False;

и еще там, вроде, есть какие-то....» Юрий Зотов:» И это ничего не даст, потому что TLabel не может получить фокус В ПРИНЦИПЕ. А TabOrder, TabStop и пр. определяют передачу именно фокуса.

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