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

[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

[[escafandra]]

Yo me preguntaría si Sender es un formulario y el formulario que quieres cerrar...
Si quieres cerrar TKyndo, ¿No es mas fácil escribir directamente close?, en caso contrario ¿Quién es Sender?

Falta saber también si tienes escrito el evento OnClose y que hace.


Saludos.

[burgosrodas]

Empezado por escafandra

Yo me preguntaría si Sender es un formulario y el formulario que quieres cerrar...
Si quieres cerrar TKyndo, ¿No es mas fácil escribir directamente close?, en caso contrario ¿Quién es Sender?

Falta saber también si tienes escrito el evento OnClose y que hace.


Saludos.

Hola escafandra, gracias por tu respuesta tan rápida

me disculpo si mi explicación no es lo suficientemente clara...
pues la clase TKyndo es solo un clase con la que manejo mi aplicación, me explico
cuando quiero crear una ventana o Form nuevo, desde TKyndo.CrearVentana(); lo hago,
dado que allí manipulo el color, posición etc.. y asigno eventos a todas las ventanas que se creen en la aplicación,
desde TKyndo no cierro ninguna ventana, simplemente creo otro procedimiento TKyndo.FormKeyDown();
(dentro de mi clase kyndo) y lo asigno a cada ventana que se crea, este ultimo procedimiento son los eventos del teclado que todos mis Forms van a tener, como por ejemplo cerrar la ventana con la tecla Escape etc..., por lo tanto el Sender del que se habla es del formulario en cuestión, el que quiero cerrar.

ya en dicho formulario tengo este evento OnClose

Código Delphi [-]
procedure TFrmOpciones.FormClose(Sender: TObject; var Action: TCloseAction);
begin

      Archivoini('Aplicacion', 'Transparencias', ChkTransparentes.Checked);

     if assigned(FrmOpciones) then
      FreeAndNil(FrmOpciones);  // la variable FrmOpciones es global y mi clase TKyndo la asignó
                                // aca mismo he puesto FrmOpciones.Free, FrmOpciones.destroy, Action:=caFree, FrmOpciones.Release
end;

tengo una inquietud, ¿es correcto hacer FrmOpciones:=nil? ¿Qué pasa con la memoria que tenia ocupada?
es por eso que pongo FreeAndNil, porque pienso que así la libera y lo que quiero es que la próxima vez que mi clase TKyndo vaya a crear la misma ventana, la variable FrmOpciones este vacía, pero no creo que FrmOpciones:=nil sea la manera de cerrar un Form. (pienso, ojala me equivoque )
por último, escribir directamente Close, dentro del evento OnClose, seria un ciclo infinito.


Muchas gracias a quien me pueda colaborar
Saludos desde Colombia

[[escafandra]]

Si la variable FrmOpciones es global, estará compartida por mas formularios. Si al cerrar uno la liberas y asignas nil ¿Que pasa en el resto de formularios?. ¿Que pasa cuando crees uno nuevo?.


Saludos.

[burgosrodas]

Empezado por escafandra

Si la variable FrmOpciones es global, estará compartida por mas formularios. Si al cerrar uno la liberas y asignas nil ¿Que pasa en el resto de formularios?. ¿Que pasa cuando crees uno nuevo?.


Saludos.

Es cierto, la variable es global, pero solo es utilizada por la clase TKyndo (la cual solo la crea y cambia una que otra propiedad), y utilizada por el mismo Form, es decir ninguna otra clase la utiliza.
veo que a JorgeQ le funciono, pero a mi no...
el problema radica en la próxima vez en que se quiere crear de nuevo la misma ventana, dependiendo de el método que utilice para cerrarla, la variable continua llena, y no es lo que quiero

[[Delphius]]

Empezado por burgosrodas

Es cierto, la variable es global, pero solo es utilizada por la clase TKyndo (la cual solo la crea y cambia una que otra propiedad), y utilizada por el mismo Form, es decir ninguna otra clase la utiliza.
veo que a JorgeQ le funciono, pero a mi no...
el problema radica en la próxima vez en que se quiere crear de nuevo la misma ventana, dependiendo de el método que utilice para cerrarla, la variable continua llena, y no es lo que quiero

Si una variable está asociada únicamente a una clase, y su tiempo de vida está definido por ésta entonces es evidente que no es una variable global, sino un atributo o campo más de la clase.

Concepto elemental de POO.

O es que yo entendí cualquier cosa de tus palabras... Si explicas mejor tu caso

Saludos,

[burgosrodas]

Empezado por Delphius

Si una variable está asociada únicamente a una clase, y su tiempo de vida está definido por ésta entonces es evidente que no es una variable global, sino un atributo o campo más de la clase.

Concepto elemental de POO.

O es que yo entendí cualquier cosa de tus palabras... Si explicas mejor tu caso

Saludos,

Hola Delphius
la variable que describimos en este hilo se refiere a la que Delphi crea automáticamente al crear un form nuevo,
algo como

Código Delphi [-]
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var 
  Form1:TForm1;  //<--- esta es la variable

variable la cual Delphi instancia con la clase Application, si es que está en el Auto-Create forms:
como puedes ver no esta dentro de la clase, osea no es un atributo de esta clase o una propiedad (pues yo le digo campo a los de las BBDD )

Ahora, tengo creada una clase propia Llamada TKyndo la cual esta interfazada

Código Delphi [-]
type
 TKyndo = class (TInterfacedObject,IKyndo) // la interfaz es solo para acceder a Windows 7

        procedure CrearVentana(InstanceClass: TFormClass; var Reference;VentanaModal:Boolean=False);
 private
        FTick: Int64;
        FButtons: array[0..2] of TThumbButton;
        FNormalIcon: Cardinal;
        FPauseIcon: Cardinal;
        FTaskBar: ITaskbarList3;
   ...

esta clase se encarga de instanciar la clase TForm1 con el procedimiento CrearVentana que se ve declarado en el codigo anterior
mi error radica en el evento OnClose del Form1 instanciado por Kyndo.CrearVentana();

Código Delphi [-]
procedure TFrmOpciones.FormClose(Sender: TObject; var Action: TCloseAction);
begin

      Archivoini('Aplicacion', 'Transparencias', ChkTransparentes.Checked);

     if assigned(FrmOpciones) then
      FreeAndNil(FrmOpciones);  // la variable FrmOpciones es global y mi clase TKyndo la asignó
                                // aca mismo he puesto FrmOpciones.Free, FrmOpciones.destroy, Action:=caFree, FrmOpciones.Release
end;