Klasse sich selbst in eine abgeleitete konvertieren

[Phoenix]

Also *eigentlich* müsste es so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  obj: TObject;
  cl: TPersistentClass;
begin
  Classes.RegisterClass(TButton); // oder eben TSchweineTransporter
  cl := GetClass('TButton'); // eben auch hier TWasauchimmerTransporter
  obj := cl.Create(); 
  ShowMessage(obj.ClassName); // hier sollte dann Dein TWasauchimmerTransporterstehen...
end;