不允许从AdvDockPanel取消停靠

Question

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

我正在寻找一个选项：

DockMode := [dmCannotFloat];

Answer 1

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

Answer 2

在TAdvCustomToolBar的EndMove事件中，我添加了这些行，使其像属性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}