MDI приложение и PageControl

[Unique_Maks]

Здравствуйте)

Возникла следующая проблема:
В MDI приложении создавая новую вкладку компонента PageControl (во время выполнения программы) нужно что бы в области этой вкладки размещалась заранее созданная форма. У меня получается совсем не то что нужно: создается вкладка, а в форма размещается не на ней а на самой родительской форме.

Подскажите как можно это правильно реализовать...

procedure TForm1.N7Click(Sender: TObject);
var  tab : TsTabSheet; 
     f:tform;
begin
 tab:=TsTabSheet.Create(self); 
 tab.PageControl:=PageControl1;
 tab.Caption:='Name'; 

  f:=tform2.Create(tab);
  tab.CreateParentedControl(f.Handle);
  pagecontrol1.ActivePage := tab;
end;

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
var  f:tform;
begin
  f:=tform2.Create(tab);
  f.Left:=0; f.Top:=0; // КЛЮЧЕВАЯ СТРОКА
  f.Parent:=tab;
 // tab.CreateParentedControl(f.Handle);
  pagecontrol1.ActivePage := tab;
  f.Visible:=true;
end;

[Unique_Maks]

Все равно работает так как и было, т.е. форма не привязывается к вкладке, форма form2 размещается чисто на родительской форме не касаясь pagecontrol.

  f:=tform2.Create(tab); //при создании формы она размещается сразу на родительскую 
  f.Left:=0; f.Top:=0; // КЛЮЧЕВАЯ СТРОКА
  f.Parent:=tab; //присвоение родителя ниче не даёт, так как уже форма создалась и разместилась в область родителя form1

Сдесь листинг всего прог кода:

procedure TForm1.N7Click(Sender: TObject);
var  tab : TsTabSheet; 
     f:tform;
begin
 tab:=TsTabSheet.Create(self); 
 tab.PageControl:=PageControl1;
 tab.Caption:='Name';

  f:=tform2.Create(tab);
  f.Left:=0; f.Top:=0; 
  f.Parent:=tab;
  //tab.CreateParentedControl(f.Handle);
  pagecontrol1.ActivePage := tab;
  f.Visible:=true;
end;

[JUDAS]

код http://www.programmersforum.ru/attac...1&d=1316947627 Делфи 7, ОС Венда ХП
настоятельно рекоментую пероесмотреть тип, стиль, и статус создаваемой, второй формы

[Unique_Maks]

JUDAS спасибо) получилось, но пришлось изменить некоторые параметры