如何分离面板并将其显示在单独的窗口中？

问题描述

| 假设我有一个表单A，其中包含一个面板（其中包含许多其他控件）和一个表单B，该面板为空。 我可以通过编程从面板A上拆下面板，然后将其移到表格B中（也许还可以移回表格A）吗？ 我知道我可以更改面板的所有者，但是它可以在不同的表单之间工作吗？ 更新： 经过一番谷歌搜索后，我看到有一个Parentwindow属性。     

解决方法

        通过将TForm实际用于面板，您可以轻松地使它们看起来像是面板，也可以显示为表单。然后在运行时将表单停靠到为此目的留下空白面板的位置，并以相同方式在运行时将其取消停靠。 您不能取消固定TPanel并将其显示为顶级表单窗口，但是可以使用顶级表单窗口并将其停靠在代码中。要获得所需的外观和功能，必须使用正确的工具（在这种情况下为TForm）。 顺便说一句，像Toolbar 2000这样的组件库确实允许基于工具栏面板浮动工具栏窗口，因此，如果您真的坚持让所有Designtim元素保持一种形式，那么在设计时，您应该研究一下它在Toolbar 2000中的工作方式。那里有很多代码可以在“未停靠/浮动”模式下渲染工具栏，并处理鼠标驱动的工具栏停靠和停靠到工具栏停靠中。     ,        正如其他人所指出的那样，在不更改所有权的情况下更改控件的父窗口存在多个问题，并且如果控件上有多个控件，则更改控件所有者可能很困难。 解决它的一种方法是改用框架。框架拥有它的所有子控件，因此您需要做的就是更改框架的所有者和父级，其他所有随之而来的。这种方法还允许您将所有事件处理程序和粘合代码也放在一个位置。 N @     ,        您必须考虑所有权，否则表格A的销毁会导致表格B上面板的消失（即销毁），甚至更糟。

type
  TForm2 = class(TForm)
  public
    InsertedPanel: TControl;  // or TPanel 

。

procedure RemoveComponents(AForm: TComponent; AControl: TWinControl);
var
  I: Integer;
begin
  for I := 0 to AControl.ControlCount - 1 do
  begin
    if AControl.Controls[I] is TWinControl then
      RemoveComponents(AForm,TWinControl(AControl.Controls[I]));
    if AControl.Controls[I].Owner = AForm then
      AForm.RemoveComponent(AControl.Controls[I]);
  end;
  AForm.RemoveComponent(AControl);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form2.InsertedPanel := Panel1;
  Panel1.Parent := nil;
  RemoveComponents(Self,Panel1);
  Form2.InsertComponent(Form2.InsertedPanel); // < this is not necessary
  Form2.InsertedPanel.Parent := Form2;        //   as long as Parent is set
  Panel1 := nil;                              //   or if you free the panel
end;                                          //   manually

额外的引用似乎有点愚蠢：

Form2.InsertedPanel

和

Panel1

指向同一个对象，但是从语义上讲是首选。也许中央控制变量更好。 更新： 我错误地认为RemoveComponent级联到面板上的子控件。当然，它不会，因此仅从表单A删除面板将使该面板的所有子控件仍归表单A所拥有。因此，我添加了RemoveComponents例程以从该面板的所有子控件中删除所有权。 请注意，面板的子控件目前没有所有者。但是，由于它们是面板的父控件，因此破坏面板将释放这些控件。因此，请确保面板有一个父面板，或明确释放面板。 以上所有内容仅适用于设计时创建的面板，将设计时放在表格上，这是我的假设。由于显然需要或需要这种变化的父母行为，因此您可能需要考虑在运行时完全实现它。为了保持设计面板设计时间的能力，我建议创建一个框架，您可以在该框架上设计该面板，并在窗体周围跳转框架。     ,        如果面板和子组件是在运行时创建的，则只需将面板的“ 4”设置为“ 5”即可：

Panel1.Parent := FormB;

请注意，必须先创建

FormB

，然后才能执行此操作。 有关更多信息，请参见此处的Delphi Wiki页面。