ToolBar的一个问题

工具栏可以被拖出来变成一个小窗口,小窗口的右上角处有一个
关闭按钮(就是"X"按钮),请问如何将这个按钮屏蔽掉(使其不显示出来),或将其变灰(使
其失效)?
在ToolBar的EndDock事件里--
procedure TForm1.ToolBar1EndDock(Sender, Target: TObject; X, Y: Integer);
var
H: THandle;
begin
H := GetParent(ToolBar1.Handle);//ToolBar在拖出来之后被“套进”另一个窗口里了
if H <> ControlBar1.Handle then begin//以下的操作都是针对这个临时的父窗口的
SetWindowLong(H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) and not WS_SYSMENU);//把它的关闭按钮去掉
ShowWindow(H, SW_HIDE);//这两句是为了让它刷新，使关闭按钮马上消失
ShowWindow(H, SW_SHOW);//如果没有这两句，必须移动一下或者调整一下大小才行
end;
end;