Как узнать родительский класс заданного класса?

[Vratar10]

Т.е. имеется некий edit в него пользователь вводит имя класса, а в label выводится его родительский класс.
На одном форуме мне сказали:

 
s := 'TButton';
ShowMessage(GetClass(s).ClassParent.ClassName);

(одно "но": класс должен быть зарегистрирован с помощью RegisterClass/RegisterClasses до того, как будет попытка использования GetClass)

Так вот, может быть мне кто-нибудь может объяснить поподробней про регистрацию класса и как это все реализовать? Или другой способ, если таковой имеется.

[Stilet]

TButton насколько я понимаю уже зарегистрирован. Ну если конечно кнопка в твой проект включена.
Вот кратко: http://www.coders-library.ru/books-p...sscls5102.html
По памяти так вроде у Тексейры и Пачеко про создания своих классов было написано, можешь попробовать полистать их книгу.

Если не ошибаюсь смысл примерно следующий: Все классы, которые компилятор пришивает к твоей программе, вольно или невольно (т.е. ты о них можешь и не догадываться, но они все равно прикомпилирываются) считаются зарегистрированными. в ЕХЕ файле для них есть целая секция (http://ru.wikipedia.org/wiki/%C4%E8%...E0%ED%ED%FB%F5), в которой описан словами каждый тип (класс), объектов в программе. Я если честно давно не использовал эту фичу, так что сказать что-то особо внятное не смогу, но по мысли должно действовать как-то так:

var cp:TPersistent;
begin
 cp:=TPersistent(GetClass('TForm1'));
 Caption:=cp.ClassName;
end;