Показать сообщение отдельно
  #4  
Старый 11.07.2009, 20:08
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

напрямую - невозможно. А в обход - сколько влезет:

Код:
type
  TBaseClass = class
  protected
     property p1 : integer read ... write ...;
     property p2 : integer read ... write ...;
  end;
  
  TFirstClass = class(TBaseClass)
  public
    property p1; // Показали 
  end;

  TSecondClass = class(TBaseClass);
  public
    property p2; // Показали
  end;

С методами такое не пройдет, но можно сделать просто заглушки, вызывающие protected-методы в соотв. наследниках.
Ответить с цитированием