我正在尝试使用停靠作为将TForm
TWinControl
嵌入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;
)的替代方法。
用户不应该注意到有两种不同的形式。
如何避免停靠窗体顶部的关闭按钮和“拖动条”?
我的代码的简化版本:
TFrame
PS:我不想使用TTabControl
,这当然是另一种选择。
更新
在这种特定情况下,我现在正在考虑使用TPageControl
而不是{{1}},因此我可以将所有控件放入主表单中。
我正在使用MVC / MVA,因此逻辑与UI分离。