Очевидно, зарегистрировать класс TStyleManager
Вам не удастся по одной простой причине: данный класс не ведет свою родословную от класса TPersistent.
Генеалогическое древо
В модуле VCL.Themes
, класс TStyleManager
объявлен следующим образом:
TStyleManager = class sealed
<...>
end;
Ознакомимся со справкой:
The System.TObject class, declared in the System unit, is the ultimate ancestor of all other classes. <...> If the declaration of a class type does not specify an ancestor, the class inherits directly from System.TObject.
Небольшой перевод:
Класс TObject
является ультимативным предком любого класса. Если не указан прямой предок класса, то компилятор, по умолчанию будет считать таковым класс TObject
.
Выходит, класс TStyleManager
в качестве предка использует класс TObject
.
Ошибка, которую Вам выдает компилятор, говорит о несоответствии типов, требующихся для регистрации. Полагаю, Вы уже догадались, что классы TPersistentClass
и TObject
являются различными?
Класс TPersistentClass
объявлен в модуле System.Classes
и имеет следующий вид:
TPersistentClass = class of TPersistent;
Нарушитель номер один
Безусловно, на ум приходит вот такое простое решение - приведение типов.
RegisterClasses([TPersistentClass(TStyleManager)]);
Но не стоит питать иллюзий относительно работоспособности данного метода в данном конкретном случае. Вы получите гарантированное сообщение об ошибке.
Вся соль заключается в работе процедуры RegisterClass
, которая, в свою очередь, вызывается процедурой RegisterClasses
.
Вот так выглядит "тело" процедуры RegisterClass
(незначительный код убран):
procedure RegisterClass(AClass: TPersistentClass);
begin
<...>
while not RegGroups.Registered(AClass) do
begin
RegGroups.RegisterClass(AClass);
if AClass = TPersistent then Break;
AClass := TPersistentClass(AClass.ClassParent);
end;
<...>
end;
Класс TRegGroups
(его экземпляр RegGroups
) является ответственным за регистрацию классов, поэтому именно к нему обращается цикл, чтобы убедиться: является ли указанный класс зарегистрированным?
Как видно, процедура прекратит проверку регистрации класса и выйдет из цикла только в том случае, если данный класс будет иметь в качестве ClassParent
класс TPersistent
. До этого момента цикл будет перебирать цепочку родителей, возвращаемых функцией ClassParent
до тех пор, пока не встретит искомый результат. Такой подход оправдан для класса TPersistentClass
, но для классов, предком которых является класс TObject
такое решение весьма печально. Все дело в работе функции ClassParent
.
Что говорит нам справка:
System::TObject::ClassParent returns the name of the parent class for an object instance or class reference. For System::TObject, System::TObject::ClassParent returns nil (Delphi) or NULL (C++).
Avoid using System::TObject::ClassParent in application code.
Иными словами, для класса TObject
данная функция вернет значение nil
. Вот почему сделан этот реферанс в сторону использования только персистентных классов(TPersistent
).
Мы не используем TObject...
Выше я упоминал гарантированное сообщение об ошибке. Это так. Всему виной* работа метода TRegGroup.RegisterClass
, который имеет следующий вид (незначительный код убран):
procedure TRegGroup.RegisterClass(AClass: TPersistentClass);
var
LClassName: string;
LClass: TPersistentClass;
begin
LClassName := AClass.ClassName;
LClass := GetClass(LClassName);
<...>
end;
Данный метод ожидает на входе валидный класс в аргументе AClass
. Ограничений, введенных программистами Embarcadero в виде применения TPersistentClass
достаточно, чтобы не делать проверку на nil
для входящего аргумента. Вместе с тем, именно первое обращение к аргументу и вызывает неизбежное AccessViolation
.
За Информацией!
Кто владеет информацией - владеет миром. Шутка ли, но это так. Чтобы владеть миром больше понимать о работе тех или иных функций, указанных здесь, советую посетить данные ресурсы:
- Classes and Objects
- RegisterClasses method
- GetClass function
- ClassParent function
- Ищите непонятные функции и процедуры в исходных текстах модулей, поставляемых вместе с Delphi.
*На самом деле, метод работает так, как от него ожидается при поступлении корректного аргумента. Использование метода не по назначению (см. приведение типов выше) не является ошибкой программистов Embarcadero.
TPersistentClass
, а вотTStyleManager
нет.