delphi - 如何使手动对接无缝/隐形？

Question

我正在尝试使用对接作为将（相关问题） a嵌入TForm到 a TWinControl（在本例中为 a TTabSheet）的替代方法。

用户根本不应该注意到有两种不同的形式。

如何避免停靠窗体顶部的关闭按钮和“拖动条”？

我的代码的简化版本：

var
  TabSheet: TTabSheet;
  Form: TSubForm;
begin
  TabSheet             := TTabSheet.Create(Self);
  TabSheet.DockSite    := True;
  TabSheet.PageControl := MainPageControl;

  Form := TSubForm.Create(TabSheet);
  Form.ManualDock(TabSheet);
  Form.Show;
end;

PS：我不想使用 aTFrame这当然是另一种选择。

更新：

在这种特定情况下，我现在正在考虑使用TTabControl而不是TPageControl，因此我可以将所有控件放入主窗体中。

无论如何我都在使用 MVC/MVA，所以逻辑与 UI 是分开的。