Ver Mensaje Individual
  #16  
Antiguo 08-09-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por buildero_d
Ahora en lo que me he enfocado es en averigüar ¿cómo crear la instancia de un form a través del nombre del formulario?, es decir, que con la propiedad de tipo string que me indica el nombre, poder crear y descargar el form. Esto puede ser menos complicado que lo anterior pero en este momento no sé como hacerlo.
En efecto, esto es sencillo:

Código Delphi [-]
// FormClassName es el nombre de la clase del formulario

var
  FormClass: TPersistentClass;

begin
   // Ver si el formulario está registrado
   FormClass := FindClass(FormClassName);

  // Ver que realmente sea un descendiente de TForm
  if FormClass.InheritsFrom(TForm) then
    // Crear el formulario y mostrarlo
    with TFormClass(FormClass).Create(Application) do
      Show;

Para que esto funcione debes registrar previamente la clase del formulario con RegisterClass o RegisterClasses. Lo más cómodo es hacerlo en la sección initialization de la unidad del formulario.

// Saludos
Responder Con Cita