Вниз
Скачать: CL | DM;

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

← →
Бывший студент ©   (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;


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


← →
Юрий Зотов ©   (2005-04-26 17:13) [5]

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

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

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

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


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
1-1131522537
sapsi
2005-11-09 10:48
2005.12.04
Расчет месячного платежа по формуле


14-1131535569
Левощенко
2005-11-09 14:26
2005.12.04
Новочеркасск-1962


14-1131837533
Vasek
2005-11-13 02:18
2005.12.04
interbase.. заполнение таблицы?


1-1131086643
Zhekson
2005-11-04 09:44
2005.12.04
Объединённые ячейки в StringGrid


2-1132288585
fligapter
2005-11-18 07:36
2005.12.04
перемещение указателя записи из другой формы




   Наверх