Pregunta

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];

¿Fue útil?

Solución 2

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}

Otros consejos

So far it's not possible. You could set AllowFloating to false but then you can only move the toolbar in the current DockPanel

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top