DELPHI FAQ: Имя класса компонента и модуля


Имя класса компонента и модуля
Previous  Home  Next



Мне необходима функция, которая возвращала бы имя класса компонента и имя модуля, где определен данный класс.

Например: xxx('TPanel') возвращала бы 'ExtCtrls'

Также мне необходима функция, возвращающая список имен страниц палитры компонентов.



Uses
 TypInfo;

Function
 ObjectsUnit (Obj: TClass): String
Begin

  Result := GetTypeData (PTypeInfo(Obj.ClassInfo))^.UnitName
end
;




Для создания описанной вами функции "Какой модуль" могут использоваться описанные в TOOLINTF.INT методы GetModuleCount, GetModuleName, GetComponentCount и GetComponentName.

Для получения представления о формате палитры компонентов обратитесь к файлу DELPHI.INI.
Взято с www.delphiworld.narod.ru





DELPHI FAQ




EOMY TOP 100      Рейтинг@Mail.ru      Rambler's Top100