[Oleg]

Здравствуйте, подскажите пожалуйста как можно скрыть некоторые процедуры, функции и свойства выборочно при наследовании ?
например у нас есть класс:
type

Код:

 TClassFirst = class
 private
 FBol:Boolean;
 Function FGetTestProperty:Boolean; 
 Procedure FSetTestProperty(Val:Boolean);
public
 Property TestProperty:Boolean read FGetTestProperty write FSetTestProperty;
end;

 TClassSecond = class(TClassFirst)
 end;

например был у нас класс TClassFirst, мы от него наследовали новый класс TClassSecond и нам нужно, чтобы в нашем новом классе например не было такого свойства как TestProperty..
так же ещё как можно скрыть функции, процедуры, которые доступны всем, т.е. которые находятся в public и свойства в published.
Подскажите пожалуйста...

[Nyctos Kasignete]

Согласно справке, вы не можете понижать «степень видимости» членов класса.

You can increase the visibility of a member in a descendant class by redeclaring it, but you cannot decrease its visibility. For example, a protected property can be made public in a descendant, but not private. Moreover, published members cannot become public in a descendant class. For more information, see Property overrides and redeclarations

Кстати, можете просмотреть эту самую тему в справке «Property overrides and redeclarations»
В частности, там написано, что хотя вы и не можете сделать свойство менее видимым, но вы можете перекрыть его и изменить процедуры чтения и записи свойства.

[Oleg]

Спасибо за ответ, очень жаль конечно, что такое невозможно

[lmikle]

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

Код:

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-методы в соотв. наследниках.