delphi - AdvDockPanelからのドッキング解除を許可しない

Question

TMSのコンポーネントを使用していますが、AdvToolBarをドッキング解除してソロフォームのように表示せずにAdvDockPanelsにドッキングできるようにする方法を知りたいです。

私は次のようなオプションを探しています：

DockMode := [dmCannotFloat];

Answer 1

これまでのところ、それは不可能です。falseに設定AllowFloatingすることもできますが、移動できるのは現在の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}