Cerrar con la equis

[JoseQ]

buenas, tengo un formulario no modal en un dll el cual al sentenciar form.close me lanza una violacion de memoria, en cambio, si le doy a la equis de la ventana se cierra sin ningun problema, e estado mirando por el foro buscando una solucion, pero parece que todo esta bien en mi unidad, al final e implementado la unidad lpjcldebug del amigo Lepe y me guardo la excepcion en un log:

[06/02/2006 13:25:12]Exception EAccessViolation: Access violation at address 00678589 in module 'QUtil.dll'. Read of address 000002F4 (OS Exception)
Exception 
 UnitName   : Forms
 Procedure  : TCustomForm.Close
 Line       : 0 OffsetLine : 0
  Deep of Except frame-dump : 3
     UnitName   : Controls Procedure  : TWinControl.MainWndProc SourceName :  Line       : 0
       UnitName   : Controls Procedure  : TWinControl.MainWndProc SourceName :  Line       : 0

>

aun asi no entiendo dnd esta el fallo, me gustaria saber como puedo 'simular' el click sobre la equis de la ventana. gracias de antemano

[delphi.com.ar]

Sería bueno que subas el código de como creas el form, y cómo lo cierras... ¿No te estarás refiriendo a distintas variables?

[JoseQ]

creacion del formulario:

llamada desde la aplicacion:

Código Delphi [-]
procedure TModuloImagenes.ActivarPaciente1Click(Sender: TObject);
begin
formref:=abriractivar(Handle,100,100,wm_user);
end;

creacion en la dll(este codigo esta en el dpr)

Código Delphi [-]
function AbrirActivar(AHandle:THandle;Px,Py,Msgback:integer):longint;  //Jose
var activar:Tactivar;
begin
application.Handle:=AHandle;
activar:= Tactivar.Create(nil);
formref:=longint(activar);
activar.fhandle:=ahandle;
activar.msgdevuelto:=msgback;
activar.Top:=Px;
activar.Left:=Py;
activar.Show;
result :=formref;
end;

cierre del formulario(se ejecuta cnd el formulario envia un mensaje a la aplicacion

llamada en la aplicacion:

Código Delphi [-]
procedure TModuloImagenes.cogeMSG(var msg : Tmessage);
begin
codpac:=msg.WParam;
dm.datosper.Locate('Codigo',codpac,[]);
DM.fotos.Filter:=('Codigo ='+ QuotedStr(dbedit1.text));
DM.fotos.Filtered:=true;
cerraractivar(formref);
end;

codigo en la dll

Código Delphi [-]
procedure CerrarActivar(AFormRef:longint);
begin
if AFormRef > 0 then
  Tactivar(AFormRef).free;
//activar.Close;
end;

no funciona ni con close no free, ni refiriendome al formulario con la variable aformref ni poniendo directamente el nombre del mismo.

[[marceloalegre]]

Probaste con un :

Código Delphi [-]
action:= caFree;

en el onclose del form?

Saludos!

[JoseQ]

si, tengo ese codigo tb en el onclose, xo cnd ejecuto el procedimiento cerraractivar genera excepcion i no se ejecuta el evento onclose

[JoseQ]

concretamente la excepcion se lanza al terminar el procedimiento que recoge en mensaje en la aplicacion y sentencia el cierre del formulario de la DLL, al llegar al end