Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Наследование

Автор: conio 9.7.2015, 11:19

Есть два Unit.

TFormUnit и его наследник TCustomFormUnit.

В TFormUnit объявлен тип TSet(item1, Item2)

При создании новой формы я использую наследование от TCustomFormUnit.
TNewForm = class(TCustomFormUnit)
end;

Получается
   Вот такое дерево предков.
   TForm
      | TSet
      |
      |______________TCustomForm
                                                |
                                                |_____________TNewForm.



Вопрос:
Как мне произвести объявление TSet в TFormUnit чтобы в TNewForm я мог использовать значения из  этого перечисления?

Сейчас просто добавляю в uses TFormUnit откуда и беру необходимые значения перечисления. Но этот способ мне не нравится.

Автор: Poseidon 9.7.2015, 12:25

Цитата(conio @ 9.7.2015, 11:19

)

Есть два Unit.

TFormUnit и его наследник TCustomFormUnit.

У unit не может быть наследников. Наследники могут быть у классов, описанных в этих юнитах.

Цитата(conio @ 9.7.2015, 11:19

)

При создании новой формы я использую наследование от TCustomFormUnit.
TNewForm = class(TCustomFormUnit)

Нифига не понял. TCustomFormUnit - это что? Это

Код

unit TCustomFormUnit

или это

Код

TCustomFormUnit = class(TForm)

???

Давайка лучше код сюда.