Ver Mensaje Individual
  #1  
Antiguo 08-01-2008
jlrbotella jlrbotella is offline
Miembro
 
Registrado: ene 2007
Posts: 185
Reputación: 18
jlrbotella Va por buen camino
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
Responder Con Cita