Например: xxx('TPanel') возвращала бы 'ExtCtrls'
Также мне необходима функция, возвращающая список имен страниц палитры компонентов.
Uses TypInfo; Function ObjectsUnit (Obj: TClass): String; Begin Result := GetTypeData (PTypeInfo(Obj.ClassInfo))^.UnitNameend; |
Для создания описанной вами функции "Какой модуль" могут использоваться описанные в TOOLINTF.INT методы GetModuleCount, GetModuleName, GetComponentCount и GetComponentName.
Для получения представления о формате палитры компонентов обратитесь к файлу DELPHI.INI. [000546]