Liberar form da memória

Delphi

10/07/2007

Pessoal, criei uma função assim: 
procedure CreateForm(aForm: TForm); 
begin 
   try 
      Application.CreateForm(TForm, aForm); 

      with aForm do 
      begin 
         Top         := 100; 
         Left        := 100; 
         Height      := 200; 
         Width       := 200; 
         BorderStyle := bsSingle; 
         FormStyle   := fsMDIChild; // Tem que ser MDI mesmo 
         Show; 
      end; 
   finally 
   end; 
end;

A chamada da função seria:
procedure TfPrincipal.Button1Click(Sender: TObject); 
var aa: TForm; 
begin 
    CreateForm(aa); 
end;

Gostaria de saber como faço para liberar este form da memória quando fechar a janela (por exemplo ao clicar no BorderIcon ´X´).
A idéia é criar o Form dinamicamente, portanto não há um evento OnClose declarado para poder setar ´Action := caFree´.


Wbb

Wbb

Curtidas 0

Respostas

Massuda

Massuda

10/07/2007

A idéia é criar o Form dinamicamente, portanto não há um evento OnClose declarado para poder setar ´Action := caFree´.
Basta você criar um tratador de evento apropriado para ser executado no OnClose e atribuir ele ao evento quando criar o form.


GOSTEI 0
POSTAR