Dynamic Form Creation

[lespaul]

I've been using the following technique for creating forms on the fly:

with TfrmAddVenire.Create(frmMain) do
begin
  dtNewVenireEnd := IncYear(dtLastEnteredVenire, 1);
  while dtLastEnteredVenire < dtNewVenireEnd do
  begin
    dtLastEnteredVenire := IncWeek(dtLastEnteredVenire, 2);
    lbVenireDates.Lines.Add(FormatDateTime('MM/DD/YYYY', dtLastEnteredVenire));
  end;
  Show;
end;

When frmAddVenire is done being used and is closed, is it automatically destroyed as well or do I need to do that in a separate step?

Thanks!

Leslie

 

[towerbase]

The best way to free the resources used by a dynamically created form is to set the Action in the OnClose event handler to caFree.

So your OnClose event handler may look something like this:

procedure TForm2.FormClose(Sender: TObject; var Actin: TCloseAction);
begin
 if MessageDlg('OK to close?', mtConfirmation,[mbYes,mbNo], 0) = mrYes then
 Action := caFree
else
 Action := caNone;
end;

There are several useful things you can do in he OnClose handler such as checking that files or registry records have been updated and so on.

Andrew