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

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

← →
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 вся ветка

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



Память: 0.46 MB
Время: 0.01 c