Declaro como FormMDI el formulario1.
Una vez que pulso un boton de este formulario1 (por ejemplo) llamo a una función principal de la DLL, la cuál crea el formulario2 que es el MDIChild.
Pero al realizar el create de este formulario2 (MDIChild) me sale el mensaje de error. Este es el código de la función de la DLL:
function editar(FormPadre: TForm) :integer;
var
Form2 : TForm2;
begin
Application.Handle := FormPadre.Handle;
try
Form2 := TForm2.Create(FormPadre);
Form2.FormStyle := fsMDIChild;
Form2.Show;
Result := 0;
except
on e: exception do
begin
ShowMessage('Error: ' + e.Message);
Form2.Free;
end;
end;
end;
Alguna sugerencia?
|