代码之家 › 专栏 › 技术社区 › Jerry Dodge

调整窗体大小时TCoolBar带增长

window-resize vcl delphi-xe2 delphi

Jerry Dodge · 技术社区 · 13 年前

在Delphi XE2 VCL Forms应用程序中,我放置了一个 TCoolBar 在我的主表格的顶部。我加了两个 TCoolBand s到这个酒吧。然后我插入了 TToolBar 进入这两个波段中的每一个波段。每个工具栏都有几个按钮。

问题是,当我水平调整表单大小时(无论是在设计时还是在运行时),无论我是将表单变大还是变小,条带的宽度都会增加。即使在缩小我的体型时,条纹也会增长,直到第二个最终被挤出视野。

为什么会发生这种情况?我该如何阻止这种情况的发生?

1 回复 | 直到 13 年前

Uwe Raabe 13 年前

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

推荐文章

maf-soft · 如何将TTabControl的每个选项卡置于其自己的单元中/使用TFrame而不是选项卡?

8 年前

relayman357 · 从函数修改TEdit对象属性

8 年前

Lotfi · 如何将TCollectionItem的2次派生类添加到TOwnedCollection?

8 年前

kevin · 串行通信Arduino C++Builder

8 年前

Max Kielland · C++Builder如何将控制台应用程序转换为VCL控制台应用程序?

8 年前

WobblyBob · 鼠标光标下的标识组件不适用于TImage控件

8 年前

Adriaan Jutte · 无法使用LockBox3解密XXTEA加密的字符串

8 年前

zig · 为什么CM\U CONTROLLISTCHANGE对间接父控件执行?

8 年前

DrWael · TPageControl:如何防止更改样式属性

9 年前

Peter · 重写VCL类/组件保护方法-如何编码和使用?

10 年前