浮动工具条的关闭问题？

[hg0001]

本人在TControlBar和TToolBar制作了一个浮动工具条，把工具条拖出成为浮动后，如果要在浮动状态下点击工具条右上角的小叉关闭按钮，然后同步菜单条上相应的菜单状态，该在什么事件中处理？

[hg0001]

首先谢谢softwing的解答。

在工具条为浮动状态下，进行拖动是在EndDock事件中处理，但是关闭并没有在该事件中响应。

[taxi]

土办法：放一个定时器检查工具栏是否可见。

关注。

[hg0001]

谢谢taxi的指教！

除了定时器外，就没有什么别的方法了吗？
在MFC中有那种WM_NCLBUTTONDOWN等方法捕捉，在Delphi中难道没有吗？

[softwing]

在ToolBar的EndDock事件里——
procedure TForm1.ToolBar1EndDock(Sender, Target: TObject; X, Y: Integer);