como liberar memoria
Publicado por iraim (14 intervenciones) el 29/06/2006 09:30:50
bueno aqui va una nueva pregunta para los grandes talentos
tengo una aplicacion con varios form los he creado de la siguiente forma
Form2:=TForm2.Create(Application);
mi problema radica en que a pesar de que en el evento onclose he escrito
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
y en el evento onclic de un boton cerrar he escrito
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close
end;
cuando hago una pregunta mediante otro boton para saber si aun se esta ejecutando el form 2 me dice que si
la pregunta la hago de la siguiente manera
procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(Form2) then ShowMessage('SI esta siendo usado ') else ShowMessage('No esta siendo usado ');
end;
conclusiones como puedo destruir completamente de la memoria a este maltido formulario
de antemano un saludos y mil gracias
tengo una aplicacion con varios form los he creado de la siguiente forma
Form2:=TForm2.Create(Application);
mi problema radica en que a pesar de que en el evento onclose he escrito
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
y en el evento onclic de un boton cerrar he escrito
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Close
end;
cuando hago una pregunta mediante otro boton para saber si aun se esta ejecutando el form 2 me dice que si
la pregunta la hago de la siguiente manera
procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(Form2) then ShowMessage('SI esta siendo usado ') else ShowMessage('No esta siendo usado ');
end;
conclusiones como puedo destruir completamente de la memoria a este maltido formulario
de antemano un saludos y mil gracias
Valora esta pregunta


0