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

Использование найденого свойства компонента   Найти похожие ветки 

← →
MikeZ   (2002-07-27 19:14) [0]

Функция вроде работает, но опять проблемы...
Этой функцией я определяю, есть ли свойства Caption и/или Hint:
Function HasPublishedProperty(Obj: TObject; PropName: String): Boolean;
Begin
Result := GetPropInfo(Obj.ClassInfo, PropName) <> Nil;
End;
Определил - есть. Теперь надо получить их значения. Я делаю это так:

ACaption, AHint : String;
Cm : TComponent //или TObject поставить? Но все равно ошибка...

.....

If HasPublishedProperty(Cm, "Caption") Then
ACaption := Cm.Caption;
If HasPublishedProperty(Cm, "Hint") Then
AHint := Cm.Hint;
Только Delphi ошибку выдает, т.к. Cm - это TComponent, а у него свойств Caption и Hint нет. Вот и вопрос - как считать значение свойства, которое реально есть, "но его вроде нет" (C)

---

← →
Юрий Зотов ©   (2002-07-27 19:32) [1]

См. GetStrProp или GetPropValue в модуле TypInfo.

А если хотите, чтобы подобных вопросов больше не возникало, советую прочитать статью об использовании RTTI на "Королевстве". А также в журнале "Программист" за этот год (вот номер не скажу, не помню, попробуйте поискать на www.programme.ru).

---

← →
Холмс   (2002-07-27 19:33) [2]

Для получения значения published св-ва независимо от типа объекта есть специальные ф-и (модуль typinfo)

function GetPropValue(Instance: TObject; const PropName: string;
PreferStrings: Boolean = True): Variant; // Почти для всех типов, кроме обработчиков событий

function GetObjectProp(Instance: TObject; PropInfo: PPropInfo;
MinClass: TClass = nil): TObject; overload; // Для объектных св-в

function GetMethodProp(Instance: TObject; PropInfo: PPropInfo): TMethod; overload; // Только для обработчиков событий (TMethod)

---

Страницы: 1 вся ветка

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



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