Dynamically add tab sheets to page control and embed a form?

Question

I\'m working on a module which consists of a page control. By default, this page control (TPageControl) shouldn\'t have any tab sheets (TTabSheet), but

Answer 1

David Heffernan is right.

Form2.Parent := TabSheet;
Form2.Show;

This code just means Form2's parent is TabSheet, not it's owner.

You can create the form like this:

Form2 := TForm2.Create(nil);

and then free it by yourself. or you can create a form like this:

Form2 := TForm2.Create(Form1);

Form1 is the owner of Form2, and it will automatically free Form2 when itself is freed.