Delphi
为什么我将窗体停靠进PageControl无法拖出
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我用一下代码动态创建了一个窗体，并自动停靠进PageControl中，但是却无法拖出，且窗体在PageControl中无法移动，缩放和关闭。
procedure NewForm;
var
f: TForm1;
tab: TTabSheet;
begin
tab:=TTabSheet.Create(Form2.PageControl1);
tab.Parent := Form2.PageControl1;
tab.PageControl := Form2.PageControl1;
f := TForm1.Create(tab);
f.Parent :=tab;
f.Show;
f.Dock(tab,tab.ClientRect);
Form2.PageControl1.ActivePage := tab;
end;
动态创建的窗体dragmode=dmautomatic,dragkind=dkdock。
而将停靠语句f.Parent :=tab;f.Dock(tab,tab.ClientRect);去掉，产生的窗体被拖进PageControl后却能再拖出。
我使用的是Delphi XE2编译器。
procedure NewForm;
var
f: TForm1;
tab: TTabSheet;
begin
tab:=TTabSheet.Create(Form2.PageControl1);
tab.Parent := Form2.PageControl1;
tab.PageControl := Form2.PageControl1;
f := TForm1.Create(tab);
f.Parent :=tab;
f.Show;
f.Dock(tab,tab.ClientRect);
Form2.PageControl1.ActivePage := tab;
end;
动态创建的窗体dragmode=dmautomatic,dragkind=dkdock。
而将停靠语句f.Parent :=tab;f.Dock(tab,tab.ClientRect);去掉，产生的窗体被拖进PageControl后却能再拖出。
我使用的是Delphi XE2编译器。
...全文
相关推荐
Delphi PageControl组件用法
**Align**: 控制PageControl在窗体中的对齐方式。5. **ShowCaptions**: 决定是否显示TabSheet的标题，如果设置为False，则不显示标签。
delphi_PageControl不显示标签，去掉边框
本篇文章将详细讲解如何在Delphi中实现PageControl不显示标签以及去掉边框。首先，让我们来了解如何不显示PageControl的标签。
delphi 真正实现实现pagecontrol多文档界面
在实现MDI时，我们可以在PageControl的每个TabSheet上创建一个Form，以此模拟多个文档并存的效果。**1.
PageControl控件实现
本教程将详细介绍如何在Android中自定义一个PageControl控件，并通过ViewFlipper实现类似iPhone的滑动翻页效果。首先，我们需要了解PageControl的基本功能。
delphi标签化窗体
然后在你的主窗体上放置一个PageControl，并在PageControl上添加TabSheet，每张TabSheet代表一个窗体或组件。接下来，我们将窗体吸附到TabSheet上。
