PageControl Tab içinde form

[aliplane]

Bir pagecontrol içinde 6-7 tane tab'ım var.
8. tabı ekleyip içine bir formum var komple nasıl yerleştirebilirim?
Mesela Form1 içinde pagecontrol,1 tane tab'ım var.2. tabım Form2 olacak.

[SimaWB]

Kod: Tümünü seç

  if not Assigned(Form2) then
    Form2 := TForm2.Create(TabSheet8);
  Form2.Align := alClient;
  Form2.Parent := TabSheet8;
  Form2.BorderStyle := bsNone;
  Form2.Show;

[aliplane]

tekrar teşekkürler.

[csunguray]

Kendi yazmış olduğum aşağıdaki procedure ü kullanabilirsiniz.

Kod: Tümünü seç

procedure TForm1.EmbedForm(InstanceClass: TComponentClass; var Reference; AOwner: TComponent);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(AOwner.Owner);
    TForm(Instance).BorderStyle := bsNone;
    TForm(Instance).Parent := TWinControl(AOwner);
    TForm(Instance).Align := alClient;
    TForm(Instance).Constraints.MaxHeight := 0;
    TForm(Instance).Constraints.MinHeight := 0;
    TForm(Instance).Constraints.MaxWidth := 0;
    TForm(Instance).Constraints.MinWidth := 0;
    TForm(Instance).Show;
  except
    TComponent(Reference) := nil;
    raise;
  end;
end;

Kullanımı:

Kod: Tümünü seç

  
  EmbedForm(TForm2, Form2, TabSheet1);
  EmbedForm(TForm3, Form3, Panel1);