Default свойства

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

В элементе коллекции (потомок TCollectionItem) публикую свойство Color, предполагаю, что по умолчанию выставляется clWhite. Но при создании компонента в инспекторе объектов отображается чёрный. Прошу помочь, заранее благодарен.

property Color: TColor read GetColor write SetColor default clWhite; procedure TColStyle.SetColor(Value: TColor); begin FColor:=Value; end; function TColStyle.GetColor: TColor; begin Result:=FColor; end;

← →
icWasya © (2005-04-25 11:55) [1]

Default означает только что если Color = clWhite, то такой цвет не будет записываться в файл DFM (и соответственно считываться из него). Кроме этого нужно сделать установку цвета в конструкторе

type TColStyle=class(CollectionItem) ... constructor Create(Collection: TCollection);override; ... constructor TColStyle.Create(Collection: TCollection); begin inherited; FColor :=clWhite; end;

← →
Юрий Зотов © (2005-04-25 12:02) [2]

> Бывший студент © (25.04.05 11:48)

А ведь в статье об этом сказано. Елы-палы, ну как же Вы читаете-то?

Бывший студент - это ведь уже не студент, верно? Значит, от системы "читать, лишь бы сдать" и "сдал-забыл" надо отвыкать...
:о)

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

И правда сказано... Позор:)

А значения по умолчанию нужно присваивать в конструкторе

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