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!!
__________________
Atentamente
Luis
|