Mostrar Form conociendo unicamente el Nombre como String
Que tal amigos
Tengo una aplicacion que tiene n cantidad de opciones en los menues, las cuales estan almacenadas en una tabla, en la cual uno de sus campos es el tipo del formulario de la opcion. Como puedo hacer para ejecutar esta sentencia mas Código:
|
Hola,
dale un vistazo a este hilo: http://www.clubdelphi.com/foros/show...=&threadid=334 En él encontrarás un enlace a uno de los posts más famosos del Club Delphi :D ;) Saludos! |
Gracias por contestar
Es bastante ilustrativo el link, pero no me saca de mi problema ya que la solucion final que me dan alli es utilizar las referencias de las clases pero si yo unicamente conozco el nombre de la clase, podrian dar un ejemplo un poco mas ilustrativo. Gracias |
Me parece que no captaste la esencia:
Para crear una forma (u otro objeto) de manera genérica necesitas referencias de clases mientras que lo que tú tienes son los nombres de las clases que obtienes de una tabla. La fábrica mantiene una relación entre las referencias y los nombres: Código:
A continuación te pongo la unidad que define la fábrica. Puedes copiarla y pegarla completa: Código:
unit FabForm; Código:
unit Unit1; ClaseForma := Fabrica.Clases[NombreForma]; te da la referencia de clase que necesitas y ahora puedes crear el formulario con: ClaseForma.Create(nil) Espero que ahora esté más claro. Si tienes dudas pregunta otra vez. // Saludos |
Problema con el constructor
Hola,
Siguiendo este hilo me surgió un problema. No me ejecuta el constructor de la clase form que he pasado como parametro(string). Lo abre correctamente pero solo ejecuta el evento FormCreate. Gracias! |
Contructor
Ahi va el codigo que uso. El formulario se crea bien con el codigo que se publico en este hilo pero no pasa por su constructor.
El formulario que debe crear es heredado y el constructor esta declarado como Virtual. Código:
|
Estimado Román.
Estoy intentando usar tu ejemplo para poder crear un formulario a partir de un string con el nombre y tengo el siguiente problema a ver si me puedes echar una mano: Yo uso formularios propios que descienden del TForm y con tu ejemplo consigo crearlos correctamente pero ahora no sé como hacer referencia al formulario para poder asignar unas propiedades determinadas y luego presentarlo. Gracias y un saludo |
No puedes :D
Tal como está pensada, la fábrica almacena referencias TFormClass y, aunque puedes, desde luego, guardar referencias de clases derivadas, no puedes sino usar los métodos y propiedades definidos en TForm. Claro que el polimorfismo de OOP aún te permite usar clases derivadas con métodos redefinidos y todas esas cosas, pero sólo puedes llamar los métodos que ya tienes. ¿Qué hacer entonces? Fijar tu propio ancestro común; para lo cual haría falta tener organizados turs formularios en una jerarquía de clases. Así por ejemplo tendrías
Tus formularios derivarían de éste y, para que la fábrica funcione necesitas, primero definir un tipo de datos que referencie tu clase de formulario:
Y en la definición de la fábrica cambiar las referencias a TFormClass por TNewtronFormClass. En un escenario muy complicado, con formularios de muy diversas índoles, tendrías que crear no una clase base sino posiblemente varias de ellas para agrupar aquellas con características comunes y hacer fábricas para cada grupo. // Saludos |
Estupendo amigo roman.
Como solo tengo un tipo de formulario heredado no creo que tenga grandes problemas para implementar tu solución. He hecho una prueba y parece que funciona perfectamente. Gracias por todo y un saludo :). |
La franja horaria es GMT +2. Ahora son las 08:03: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