PageControl neues TabSheet erstellen und Frame darauf zeigen

[uligerhardt]

Vielleicht sowas?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Sheet: TTabSheet;
  Frame: TMemo; // Memo als Dummy - hier dein Anruf-Frame
begin
  Sheet := TTabSheet.Create(Self);
  Sheet.Name := 'Sheet' + IntToStr(PageControl1.PageCount);

  Frame := TMemo.Create(Self);
  Frame.Name := 'CallFrame' + IntToStr(PageControl1.PageCount);
  Frame.Align := alClient;
  Frame.Parent := Sheet;

  Sheet.PageControl := PageControl1;
  PageControl1.ActivePage := Sheet;
end;