Question

I’m using components from TMS and I’d like to know how to allow AdvToolBar to dock into AdvDockPanels without allowing it to undock and then appearing like a solo Form.

I’m looking for an option like:

DockMode := [dmCannotFloat];

Answer 1

In the event EndMove of TAdvCustomToolBar I add those lines to make it act like the Property AutoDockOnClose and that does just what I want. AllowFloating is set to True.

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