delphi - 调整表单大小时，TCoolBar strip 会增长

Question

在 Delphi XE2 VCL 表单应用程序中，我放置了一个 TCoolBar在我的主窗体的顶部。我添加了两个 TCoolBand到这个酒吧。然后我插入了一个 TToolBar进入这两个乐队中的每一个。每个工具栏都有几个按钮。

问题是，当我水平调整表单大小时(在设计时和运行时)， strip 的宽度会增加，无论我是将表单放大还是缩小。即使让我的表格变小， strip 也会增长，直到第二个最终被推出视野。

为什么会发生这种情况，我该如何阻止它发生？

Answer 1

AFAIK，唯一的解决方案(感谢 Ludek Stauber)是修补 Vcl.ComCtrls.pas。在方法 TCoolBar.GetCaptionSize 的末尾添加两行来处理 IE6 和更新版本:

  { The grip size in IE4 is 3 pixels narrower than IE3 }
  if GetComCtlVersion < ComCtlVersionIE4 then
    Inc(Result, GripSizeIE3)
  // begin handle IE6
  else if GetComCtlVersion >= $0006000A {ComCtlVersionIE610} then
    Inc(Result, 4 {GripSizeIE610})
  // end handle IE6
  else