Cerrar con la equis

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