重新锁定后，我的停靠控件上会出现关闭按钮

Question

我有一个油漆盒，我希望用户能够取消停靠和移动。因此，我将其DragKind设置为dkDock，将DragMode设置为dmAutomatic，并将其设置在DockSite设置为True的面板中。当我将油漆盒与浮动形状脱开后，我会遇到一种相当奇怪的行为。浮动窗体的关闭按钮出现在面板内。我附上了两个截图。一个来自原始状态，一个再次对接油漆盒。我错过了什么？

原始状态：

对接后：

---

更新 使用TLama的解决方案后，结果如下。

Answer 1

你没有遗漏任何东西。这就是默认的Dock Manager实现的工作方式。它只是想拥有使用它的Dock站点上可用的关闭按钮。您可以做的是实现您自己的停靠管理器并覆盖其AdjustDockRect方法，该方法控制停靠区域的大小以及默认停靠管理器实现的位置为关闭按钮的抓取器创建了空间。如果你不想要那个抓取器，只需保持dock区域矩形的大小，因为它传递给方法，整个dock站点的大小。换句话说，在该方法覆盖中什么也不做。

这是抓取器的功能部分，但除了你需要拦截硬编码的绘图。要做到这一点，你需要覆盖PaintDockFrame事件方法，就像之前一样，什么都不做。

以下是代码示例：

type
  TNoGrabDockManager = class(TDockTree)
  protected
    procedure AdjustDockRect(Control: TControl; var ARect: TRect); override;
    procedure PaintDockFrame(Canvas: TCanvas; Control: TControl;
      const ARect: TRect); override;
  end;

implementation

{ TNoGrabDockManager }

procedure TNoGrabDockManager.AdjustDockRect(Control: TControl; var ARect: TRect);
begin
  // here you can make space for a grabber by shifting top or left position
  // of the ARect parameter, which is by default set to the whole dock site
  // bounds size, so if you do nothing here, there will be no grabber
end;

procedure TNoGrabDockManager.PaintDockFrame(Canvas: TCanvas; Control: TControl;
  const ARect: TRect);
begin
  // in this event method, the grabber with that close button are drawn, so
  // as in case of disabling grabber functionality do precisely nothing for
  // drawing it here, that will make it visually disappear
end;

以下是如何使用此类自定义停靠管理器（有关UseDockManager属性的说明，请参见下文）：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.DockManager := TNoGrabDockManager.Create(Panel1);
  Panel1.UseDockManager := True;
end;

重要 的

少数消息来源建议，您应该在设计时将停靠面板的UseDockManager属性设置为False。我不知道为什么，但是从我做过的快速测试中，当我在设计时没有设置该属性时，自定义停靠管理器的一些事件方法没有被触发（AdjustDockRect事件方法即使没有这样做也能正常工作，但我个人不会依赖它。）

Answer 2

使用TPageControl并隐藏生成的标签页中的选项卡，而不是使用面板作为停靠目标。由于页面控件通常具有可见选项卡，因此不会显示删除句柄。不幸的是，当您隐藏选项卡表的选项卡时，表单本身也是隐藏的。因此，您必须通过添加以下OnDockDrop事件来保存和恢复它：

procedure TForm2.PageControl1DockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
var
  ix: Integer;
begin
  ix := PageControl1.ActivePageIndex;
  PageControl1.ActivePage.TabVisible := false;
  PageControl1.ActivePageIndex := ix;
end;