|
Ya me funciona pero.......
Con este procedure me funcionó y aunque todas las respuestas son válidas, espero que este fuera el ejemplo, me funcionó.
procedure Lanza(i:String);
var
FormClass: TPersistentClass;
begin
FormClass := GetClass(i);
if Assigned(FormClass) and (FormClass.InheritsFrom(TForm)) then
with TFormClass(FormClass).Create(Application) do Begin
ShowModal;
End;
End;
Pero mi pregunta es: Y el Free o el freeAndNil....?
Si el objeto se crea, donde lo libero?
Trabajo con QReport y a vece da muchos problemas en este sentido con su Preview, por eso pregunto.
El lo crea y lo visualiza, sin problemas, y donde lo destruye?. o es que se autodestruye?
Llevo tanto tiempo con Delphi y nunca habia tenido necesidad de trabajar con Clases, perdonen.
y Gracias.
Saludos
Fernando
|