Значения свойств компонента по умолчанию, кто зна?

← →
Matolch © (2002-11-24 13:02) [0]

Очень хотелось бы найти ответ на один скромный вопрос. Берем компонент. У него свойства - типа Anchors, BevelInner, DragCursor и т.п. всячина. Каким образом определить, какое значение должно быть у данного свойства компонента по умолчанию?
Подскажите, кто знает, добром вспомню.

← →
Calm © (2002-11-24 13:15) [1]

Значения свойств компонент VCL указываются директивой default в объявлении свойства в классе. Если свойство имеет значение, отличное от используемого по умолчанию, то это значение сохраняется в dfm-файле. Это можно легко увидеть, перейдя в режим редактирования формы View as form.

Например:
TMyClass=class
published
property MyProp:integer read GetMyProp write SetMyProp default 20;
end;

Нужно иметь ввиду, что директива default имеет другой смысл для индекстированных свойств, т.е. имеющих входной параметр перечислимого типа (например, свойство items класса TList)

← →
Matolch © (2002-11-24 18:47) [2]

> Calm ©

Жаль, что я пропустил начало и не смог сразу отреагировать. Извиняюсь, я должен немного поправиться (кг до 127.8). Вопрос должен звучать немного не так, как он did. Тут другое. Как в< B>Runtime узнать этот default; с каким значением поле FBevelInner типа TBevelCut = (bvNone, bvLowered, bvRaised, bvSpace), инициализируется в конструкторе:

FBevelInner := bvRaised; ?

Не таскать же за собой модули, перелопачивая их в случае необходимости. Ну, вот.

... default...
... default...
... default ...

← →
Юрий Зотов © (2002-11-25 09:36) [3]

Создать, взять значение, уничтожить.

tkMethod: begin MethodC := GetMethodProp(Component, PropName); MethodS := GetMethodProp(SomeObject, PropName); if (MethodC.Code <> MethodS.Code) or (MethodC.Data <> MethodS.Data) then begin StrValueC := {TObject(MethodC.Data).}MethodName(MethodC.Code); Add(" " + PropName + " := " + StrValueC + ";"); end; end;

Если не ремить TObject(MethodC.Data), прекрасно работает.

Значения свойств компонента по умолчанию, кто зна? Найти похожие ветки