Свойство предка

← →
Бывший студент © (2005-04-26 14:38) [0]

Необходимо скрыть published свойство ColCount в потомке TStringGrid"а. Я знаю, что нельзя понижать видимость, но может быть есть способ заблокировать свойство. Заранее благодарен.

← →
-=XP=- © (2005-04-26 15:10) [1]

1. Использовать в качестве предка TCustomDrawGrid
2. Переопределить свойство (?)

← →
Бывший студент © (2005-04-26 15:15) [2]

Использование TStringGrid принципиально. Сейчас пробую переопределять.

← →
Бывший студент © (2005-04-26 15:51) [3]

При переопределении получается заблокировать его совсем, а мне хотелось бы только в инспекторе объектов.

← →
-=XP=- © (2005-04-26 16:21) [4]

1. if not (csDesigning in ComponentState) then - блокировать только в Design Time.

2. Объявить вторичное свойство, и пользоваться им

type TEditEx = class(TEdit) private function GetText: string; procedure SetText(AText: string); function GetTextEx: string; procedure SetTextEx(AText: string); published property Text: string read GetText write SetText; property TextEx: string read GetTextEx write SetTextEx; end; function TEditEx.GetText: string; begin Result := inherited Text; end; function TEditEx.GetTextEx: string; begin Result := inherited Text; end; procedure TEditEx.SetText(AText: string); begin ShowMessage("Locked"); end; procedure TEditEx.SetTextEx(AText: string); begin inherited Text := AText; end;

Только вот зачем? Ну, хозяин - барин.

> Бывший студент © (26.04.05 14:38)

> Необходимо скрыть published свойство

Зарегистрируйте для него редактор, указав nil вместо класса редактора. Из OI оно исчезнет, но в коде останется доступным.

Только не тем путем Вы пошли. Не свойство прятать надо, а синхронизировать его с Вашей коллекцией. Обоюдная синхронизация должна быть - и с той, и с другой стороны. Иначе кустарщина получится, а не нормальный компонент.

Спасибо. Это временная мера, пока нет обоюдной синхронизации.

Свойство предка Найти похожие ветки