Cita:
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
public
end;
var
Form1:TForm1;
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)
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); end;