TMSのコンポーネントを使用していますが、AdvToolBarをドッキング解除してソロフォームのように表示せずにAdvDockPanelsにドッキングできるようにする方法を知りたいです。
私は次のようなオプションを探しています:
DockMode := [dmCannotFloat];
これまでのところ、それは不可能です。falseに設定AllowFloating
することもできますが、移動できるのは現在のDockPanelのツールバーのみです。
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}