Tema: fmx dll form
Ver Mensaje Individual
  #1  
Antiguo 27-05-2022
balger balger is offline
Miembro
 
Registrado: may 2011
Posts: 30
Reputación: 0
balger Va por buen camino
fmx dll form

Hola a todos.
Tengo el sig. caso.
en un DLL el procedimiento exportado

Código Delphi [-]
procedure Showxxx; stdcall;
var
  f: Txxx;

begin
  f := Txxx.Create(nil); (FMX)
  f.ShowModal(
    procedure(ModalResult: TModalResult)
    begin
    end);
end;

exports
  Showxxx;

end.

en Txxx

Código Delphi [-]
procedure Txxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ModalResult := mrOk;
  Action := TCloseAction.caFree;
end;

El codigo anterior funciona bien desde un exe (no dll)
Cuando cierro el form, en la barra de tareas de Windows se puede observar la vertana abierta (sin imagen). Y al liberar la dll se produce un error de "Access violation".
Estoy usando D10.3 y Firemonkey.
Responder Con Cita