Form içinde form açma

[Hashirama]

Merhaba Arkadaşlar

Form içinde form açmaya çalışıyorum. Delphi VCL ile aşağıda ki kod ile sorunsuz başarıyorum ancak Firemonkey de aynı kodlar ile saçma sapan bir şekilde çalışıyor(form2 bütün tabitem lerde açılıyor, form2 nin hangi koordinatta açılacağı tam olarak belirlenemiyor, alclient özelliği yok ).

Bu konuda bilgisi olan var mı ?

//Delphi VCL

Kod: Tümünü seç

  
 
if not Assigned(form2) then
      form2 := Tform2.Create(TabSheet2);
  form2.Align := alClient;
   // form2.Align := talignlayout(0);
//  form2.BorderStyle:= Tfmxformborderstyle(0);


 // Kazan_Form.Height:=50;
  form2.Left:=50;
  form2.Top:=220;
  form2.Parent :=form1.TabSheet2;
  form2.Show ;

//Firemokey

Kod: Tümünü seç

   
    if not Assigned(form2) then
      form2 := Tform2.Create(tabitem2);
 // form2.Align := alClient;
   // form2.Align := talignlayout(0);
  form2.BorderStyle:= Tfmxformborderstyle(0);
  //

 form2.Height:=50;
  form2.Left:=50;
  form2.Top:=220;
  form2.Parent :=form1.tabitem2;
  form2.Show ;

[csunguray]

Aşağıdaki kod bir formu bir TabItem içerisine yerleştirir.

Kod: Tümünü seç

procedure TForm1.EmbeddForm(AForm: TForm);
var
  ATabItem: TTabItem;
begin
  ATabItem := TTabItem.Create(TabControl1);
  ATabItem.Parent := TabControl1;
  TabControl1.ActiveTab := ATabItem;
  while AForm.ChildrenCount>0 do
    AForm.Children[0].Parent := ATabItem;
  if Assigned(AForm.OnShow) then AForm.OnShow(Self);
end;

[Hashirama]

Teşekkürler, sorun çözülmüştür.