Мне необходима функция, которая возвращала бы имя класса компонента и имя модуля, где определен данный класс.
Например: xxx('TPanel') возвращала бы 'ExtCtrls'
Также мне необходима функция, возвращающая список имен страниц палитры компонентов.
|
Code: |
|
Uses TypInfo;
Function ObjectsUnit (Obj: TClass): String; Begin Result := GetTypeData (PTypeInfo(Obj.ClassInfo))^.UnitName end; |
Для создания описанной вами функции "Какой модуль" могут использоваться описанные в TOOLINTF.INT методы GetModuleCount, GetModuleName, GetComponentCount и GetComponentName.
Для получения представления о формате палитры компонентов обратитесь к файлу DELPHI.INI.
Новые статьи
Ранние статьи
Случайные статьи
- Как получить значение свойства в виде варианта по тексту имени свойства?
- Как прочитать весь список Published методов?
- Как присвоить все значения полей одного класса, другому такому же классу?
- Как сделать текстовый список всех доступных свойств перечисляемого типа?
- Как динамически прочитать информацию о классе
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!