Here's one possible solution. You have to create your own TToolDockForm descendant, and in it you want to make sure that the border icon is gone as well as preventing Alt+F4.

type TMyToolDockForm = class(TToolDockForm) constructor Create(AOwner: TComponent); override; procedure DoClose(var Action: TCloseAction); override; end;

constructor TMyToolDockForm.Create(AOwner: TComponent); begin inherited Create(AOwner); BorderIcons := []; end;

procedure TMyToolDockForm.DoClose(var Action: TCloseAction); begin Action := caNone; end;

procedure TForm .FormCreate(Sender: TObject); var i : Integer; begin for i:=0 to ComponentCount- do if Components[i] is TToolBar then TToolBar(Components[i]).FloatingDockSiteClass := TMyToolDockForm; end; 3/ 0/99 0:38:05 AM