Free dynamic Form

[maher]

Hi,

 

I have add a "free form" to my application and I use this code to display the form:

 

 

procedure TMainForm.btn_testClick(Sender: TObject);
var
 frm:TUniForm1;
begin
 frm:=TUniForm1.Create(UniApplication);
 frm.Show();
end; 

I want to free (delete) this form after closing it, How can I do that?

 

** I wonder: when the form been closed the system free it automatically?!!

[Hayri ASLAN]

frm.onclose event :

 

You must write Action:=CaFree;

[Farshad Mohajeri]

** I wonder: when the form been closed the system free it automatically?!!

 

Yes. (Actually depending on FreeOnClose value which it True by default)

[maher]

Thanx