delphi interprete
Hola:
Quizas sea muy rebuscada mi pregunta pero ahi va: Necesito hacer que delphi interprete una variable, esto es: por ejempo var x: string; begin x:='Tmyform'; myform:= x.create(self); try myform.showmodal; except myform.free; end; end; se puede?. Espero que se entienda mi pregunta. Gracias |
Se puede, pero has de utilizar la función FindClass para buscar la clase a inicializar a través de su nombre y registrar dicha clase antes de localizarla utilizando el método RegisterClass. Ej:
|
|
Mariano:
Gracias, funciona. Estoy empezando con delphi y al desconocer algunos aspectos de este lenguaje mi requerimiento no es muy claro. Te pregunto cual es en realidad mi duda. Tengo una tabla con distintas opciones (junto a los forms asociados a esa opcion) de un menu y me gustaria poder armar un menu en tiempo de ejecucion de modo que sea dinamico, esto es, cada usuario tiene un perfil y cuando se validad se le arma el menu para ese usuario y cada vez que seleccione una opcion pueda llamar al Form asociado. De ahi la necesidad de mi pedido. En el codigo que me enviaste quedarian dos dudas a resolver Uses x ? // x contendria la unidad uForm procedure TForm1.Button1Click(Sender: TObject); var x: string; begin x := 'TForm1'; with TFormClass(FindClass(x)).Create(Self) do begin ShowModal; Free; end; end; initialization RegisterClass(x); // x en lugar de Tform1. Desde ya muchas gracias!! |
Cita:
Cita:
Saludos! |
Cita:
// Saludos |
La franja horaria es GMT +2. Ahora son las 08:53:32. |
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