Свойства компонентов

← →
REA © (2003-09-24 21:34) [0]

Существуют различные компоненты, унаследовать которые от одного класса нет возможности (см. ниже). У них есть (или их нет; точнее есть только у некоторых) общие свойства (цвет, шрифт, выравнивание и т.п.). Необходимо узнать есть ли у компонента данное свойство и иметь возможность его поменять (Не используя case и прямые преобразования типов).
Как бы это лучше сделать? Использовать TypInfo или интерфейсы прикрутить?

← →
Zergling © (2003-09-25 06:11) [1]

На мой взгляд RTTI

uses TypInfo;

Function HasProperty(AComponent: TObject; APropertyName: String): Boolean;
var PropInfo: PPropInfo;
Begin
PropInfo := GetPropInfo(AComponent.ClassInfo, APropertyName);
Result := PropInfo <> Nil;
End;

*****

var
PropInfo: PPropInfo;
begin
if not HasProperty(SelObj, ValueListProperty.Keys[ARow]) then EXIT;
PropInfo := GetPropInfo(SelObj, ValueListProperty.Keys[ARow]);
if PropInfo <> nil then
case PropInfo^.PropType^.Kind of
tkInteger: ... ;
tkEnumeration: ... ;
tkLString: ... ;
// и т.д.
end;
end;

Ну я типа так и хотел. Ну маленько не так, но смысл тот же.
Сенкс.

Свойства компонентов Найти похожие ветки