delphi - 不允许从 AdvDockPanel 取消停靠

Question

我正在使用来自 TMS 的组件，我想知道如何允许 AdvToolBar 停靠到 AdvDockPanels 中，而不允许它取消停靠然后看起来像一个单独的表单。

我正在寻找类似的选项：

DockMode := [dmCannotFloat];

Answer 1

到目前为止，这是不可能的。您可以设置AllowFloating为 false 但您只能在当前 DockPanel 中移动工具栏

Answer 2

在 TAdvCustomToolBar 的 EndMove 事件中，我添加这些行以使其像 Property AutoDockOnClose 一样，这正是我想要的。AllowFloating 设置为 True。

{$IFDEF CHALAM}
   if (Assigned(FLastDock)) then
   begin
      self.Parent := FLastDock;
      if FFloatingWindow <> nil then
      begin
         FFloatingWindow.Free;
         FFloatingWindow := nil;
      end;
   end;
{$ENDIF}