Sorry

← →
RASkov (2006-10-01 17:31) [0]

Как правильно добавить свойство readonly для компанента
published
property Count: Integer read GetCount;
так, что бы в инспекторе его было видно но изменять нельзя readonly
делаю пока так

published property Count: Integer read GetCount write SetCount; .... function GetCount: integer; begin Result:=list.Count; end; procedure SetCount (Value: Integer); begin FCount:=list.Count; end;

правильно это?

← →
Zeqfreed © (2006-10-01 17:35) [1]

Какой смысл отображать read-only св-во в инспекторе? Настоящие read-only св-ва нельзя ставить в левой части операции присваиивания, твое же, «фейковое», вполне можно, что есть нехорошо.

> FCount:=list.Count;

Это лишнее. Но повторюсь: я бы так не делал.

← →
Percent (2006-10-01 17:45) [2]

Правой кнопкой мыши на Object Inspector"е - Properties - [V] Show read only properties

← →
Zeqfreed © (2006-10-01 17:49) [3]

> [2] Percent (01.10.06 17:45)

Никогда об этом даже не задумывался :) В Turbo Delphi по умолчанию read-only св-ва оказывается показываются.

← →
RASkov (2006-10-01 18:24) [4]

Просто "информативное" поле хочется добавить, которое отброжает кол-во элементов поля TCollection :)
> [1] Zeqfreed © (01.10.06 17:35)

Это я так понимаю про SetCount?
Помоему ответ правильный [2]. ИМХО.
И объявление:
published property Count: Integer read; .... function GetCount: integer; begin Result:=list.Count; end;

← →
Zeqfreed © (2006-10-01 18:36) [5]

> [4] RASkov (01.10.06 18:24)

> Помоему ответ правильный [2]. ИМХО.

Разумеется.

← →
Desdechado © (2006-10-01 19:24) [6]

> property Count: Integer read GetCount write SetCount;
если оно только для чтения, то выделенное нафиг не нужно

← →
RASkov (2006-10-01 19:39) [7]

> [6] Desdechado © (01.10.06 19:24)

Читаем вопрос и смотрим [2] ;)

← →
RASkov (2006-10-01 19:40) [8]

> [7] RASkov (01.10.06 19:39)

Т.е. см [4] :)

сам себе отвечаешь? молодец.
только этоможно делать перед зеркалом, не засоряя форум

← →
RASkov (2006-10-01 20:50) [10]

вообще то я не себе ответил:) Внимательно читаем ветку... Ладно проехали...

Sorry Найти похожие ветки