Cerrar con la equis

[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

[JoseQ]

en verdad el error me da igual, solo necesito saber como provocar el click sobre la x

[JoseQ]

solucionado, aun no se xk salia el error , xo lo arregle asi

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

[burgosrodas]

Hola JoseQ
tengo un problema similar
uso una clase principal para crear mis Forms
paso como parametro lo necesario para crear mi ventana desde dicha clase

Código Delphi [-]
procedure TKyndo.CrearVentana(InstanceClass: TFormClass;var Reference;VentanaModal:Boolean=False);
begin
   Application.CreateForm(InstanceClass,Reference);

            with TForm(Reference) do
             begin
                  Color:=Self.sColor;
                  FormStyle:=Self.sFormStyle;
                  WindowState := wsNormal;
                  Position:=poScreenCenter;
                  KeyPreview:=True;
                  OnKeyDown:=FormKeyDown;
    ...

donde Reference es la variable global de la clase del form

invoco ese procedimiento de la siguiente manera

Código Delphi [-]
...
var 
   FrmPrivilegios:TFrmPrivilegios;
...
begin
           Kyndo.CrearVentana(TFrmPrivilegios,FrmPrivilegios,False);

el problema es que ahora puse un procedimiento global en el KeyDown de los formularios donde hago un Close a cualquier Form

Código Delphi [-]
procedure TKyndo.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
      case key of
         VK_HOME:; 
         VK_RETURN:; //Enter (13)
         VK_ESCAPE:
         begin
            (Sender as TForm).close;    //escape (27)
         end;
      end;
end;

pero me saca el error que planteas, el cual no ocurre dando click en la X del Form, solo ocurre si se invoca el evento Close
he intentado todo, Action:=caFree en el FormClose, TForm(Sender).Destroy, FreeAndNil(TForm(Sender)) y TForm(Sender).Free en el FormKeyDown pero no resulta...
e intentado acomodarme a tu solucion, pero no entiendo bien tu clase Tactivar, alguien entiende este error?

gracias
saludos desde Colombia