Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизЗначения свойств компонента по умолчанию, кто зна? Найти похожие ветки
← →
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]Создать, взять значение, уничтожить.
← →
Matolch (2002-11-25 20:42) [4]
> Юрий Зотов ©
Большое спасибо, я уже до меня уже дошло.
← →
Matolch (2002-11-26 22:43) [5]
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), прекрасно работает.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c