Cerrar con la equis

[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.