Не разрешать отсоединение от AdvDockPanel

Question

Не разрешать отсоединение от AdvDockPanel

Я использую компоненты от TMS, и я хотел бы знать, как позволить AdvToolBar пристыковаться к AdvDockPanels, не позволяя ему отстыковаться, а затем появиться как сольная форма.

Я ищу вариант как:

DockMode := [dmCannotFloat];

0

delphi toolbar tms

Источник

user1410385 23 май '12 в 16:24

2 ответа

Решение

Пока что это невозможно. Вы могли бы установить AllowFloating в false, но тогда вы можете только переместить панель инструментов в текущей DockPanel

1

Источник

user1406728 23 май '12 в 17:53

Другие вопросы по тегам delphi toolbar tms

user1410385 31 май '12 в 17:42 2012-05-31 17:42 · Accepted Answer · 2012-05-31 17:42

В событие EndMove объекта TAdvCustomToolBar я добавляю эти строки, чтобы он действовал как свойство 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}