[SOLVED] To Free, or not to Free?

[Slyde]

Does TForm Free sm when sm's Ok button's clicked?

Code: Pascal  [Select][+][-]

1. var
2.   sm: TForm;
3. begin
4.   sm:= CreateMessageDialog('Well done', mtCustom, [mbOK]);
5.   sm.Position:= poOwnerFormCenter;
6.   sm.ShowModal;
7. end;

Or do I need to do it?

Code: Pascal  [Select][+][-]

1. var
2.   sm: TForm;
3. begin
4.   sm:= CreateMessageDialog('Well done', mtCustom, [mbOK]);
5.   sm.Position:= poOwnerFormCenter;
6.   sm.ShowModal;
7.   sm.Free;
8. end;

Not a hassle one way or the other.  But since the both blocks of code run, I was wondering if the top block's giving a memory leak.

[bytebites]

Correct answer is Project options -> Debugging -> Use Heap trace -unit

[Slyde]

Thank you.

[dseligo]

IMHO, you have to free it.

There is no owner set in creation of form, so it isn't freed automatically:

Code: Pascal  [Select][+][-]

1. inherited CreateNew(nil, 1);

[Slyde]

Hey, dseligo.

That's what I've done, just to be on the safe side.  I actually got that code from the forum, here. And it was given without Freeing the dialog box, which no one said anything to the contrary.  But it just didn't look right.  And I didn't know where to start digging to sort it out on my my own, so I used the forum.  Really appreciate your answer.  Thanks.