Crear Objeto por su nombre de clase
Hola:
Actualmente tengo dos formulario (TForm1 y Tform2) y me gustaria crearlos con un único procedure: Ejemplo
procedure CrearFormulario(Form : TForm)
begin
Form := TForm.Create(self);
end;
// Este ejemplo funciona, pero me lo crea con la clase heredada TForm y no la que correspondería que seria:
Form := TForm1.Create(self);
Form := TForm2.Create(self);
Hay alguna forma de crear el objeto sin saber su clase?
NombreClase := Classname(Form);
Form := NombreClase.Create(self);
Un saludo,
JL
|