如何使手动对接无缝/隐形?

时间:2011-11-11 11:03:45

标签: delphi delphi-2007 docking

我正在尝试使用停靠作为将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分离。

0 个答案:

没有答案