Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Creación de Forms en runtime con Tipo dinámico (https://www.clubdelphi.com/foros/showthread.php?t=14701)

Aprendiz 28-09-2004 18:29:17

Creación de Forms en runtime con Tipo dinámico
 
Hola a todos ;) , hacía tiempo que no podía pasarme por aquí, espero que puedan ayudarme.

El problema:

Tengo una pantalla principal de mi aplicación donde se cargan una serie de iconos dependiendo de los permisos del usuario que se conecta. Cada icono/permiso al pulsar un doble clic debe abrir un formulario. El nombre de la clase del formulario la tengo guardada como un string en la misma tabla de permisos. El problema está en que como es un string no se como hacerlo para declarar el formulario en runtime.

Lo que quería hacer es algo parecido a esto, cosa que no funciona por ahora:
Código:

var
  frmApertura: TFormClass;
begin
  Application.CreateForm('TfrmMiFormulario',frmApertura);
  frmApertura.ShowModal;
end

Se entiende que 'TfrmMiFormulario' se ha obtenido de la lectura de un valor de un campo de una tabla. Aquí lo pongo como constante para que se capte la filosofía de lo que pretendo.

Espero que entre todos podamos sacar la solución...si existe.

Saludos y Grácias.

roman 28-09-2004 18:32:27

Hace apenas unos cuantos días surgió esta cuestión y me parece que te viene como anillo al dedo:

http://www.clubdelphi.com/foros/show...hlight=factory

// Saludos

Aprendiz 29-09-2004 10:35:25

OK, muchas gracias.

Estuve investigando y me encontré también con otro hilo, contestado también por ti, es que estás hecho un hacha, que hacía referencia a otro hilo del foro antiguo.

Por si le sirve a alguien: http://www.clubdelphi.com/foros/arch...838&highlight=

Gracias a todos.

Saludos


La franja horaria es GMT +2. Ahora son las 20:24:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi