Mehrere Klassen von einer Klasse ableiten

[Bummi]

Du benötigst noch TBaseClassClass=Class of TBaseClass;

Beispiel:

Delphi-Quellcode:

var
 c:TControl;
begin
  C := TControlClass(FindClass('TButton')).Create(Self);
  C.Parent := Self;
  C.Width := 100;
  C.Height := 100;


end;
initialization
Registerclass(TButton) ;