Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
Вниз
Свойства компонентов Найти похожие ветки
← →
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;
← →
REA (2003-09-25 09:51) [2]Ну я типа так и хотел. Ну маленько не так, но смысл тот же.
Сенкс.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c