是否可以将TPanel拖到TForm之外？

Question

我想知道是否有可能做出这样的事情：

​

​

但是没有创建第二个TForm。

我正在使用Delphi 7，但是如果更新的版本使它成为可能，请告诉我。

Answer 1

我一直认为DockEx演示对于学习对接的基本知识来说过于复杂。

以下是我所知道的最简单的例子：

• 将TPanel添加到空白窗体，并将其DragKind属性设置为dkDock，将DragMode设置为dmAutomatic，将其对齐属性设置为alTop。
• 将TButton放到TPanel上
• 将下面的代码添加到表单中：
• 运行项目并手动将面板拖出窗体。
• 单击Button1。

上面展示了Delphi如何在脱离停靠时，不需要创建第二种形式来承载面板(或TEdit等)，就像雷米在评论中所说的那样。Button1单击处理程序显示了一种重新对接面板的方法(诚然是不完美的)。下一步：

• 再次取消面板，但这次，单击其自动创建的主机上的“关闭”按钮。

然后，阅读OLH，找出a)如何使现在隐藏的面板再次可见；( b)重新定位并重新对齐它在窗体上的位置，就像它在离坞之前一样，

  type
    TMyClass = TControl;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    TMyClass(Panel1).ManualDock(Self, Nil, alNone);
  end;