Delphi TCoolBar-CoolBand对齐

Question

是否可以将CoolBand对准CoolBar的左侧？ 意味着当调整CoolBar（窗体）的大小并且CoolBands移动到下面的行时，Band应该与Bar的左侧（而不是右侧）对齐。 当菜单项不再适合一行时，类似于菜单行为。

还有可能节省频段的调整吗？

Answer 1

如果您设置每个波段的MinWidth属性并将CoolBar AutoSize属性设置为True，则当波段处于其MinWidth时，它将自动包装。

编辑 ：上面仍然是正确的，但应扩展-评论部分的新信息。 Coolbar尝试始终填充控件的宽度，因此您的最后一个频段会拉伸以占用空间。 如果将MaxWidth约束添加到带区控件，则它们在带环绕和拉伸时会向右对齐。 最好的解决方案是将MinWidth设置为所需的值，但让CoolBar确定最大宽度。

保存调整？ 您是指每个冷却带的确切位置吗？ 如果是这样，我认为您不能直接存储它。 但是复制布局应该是微不足道的。 存储每个Band的Break和Width属性，并按顺序应用它们。 我认为您最好的策略是调整窗体（或TCoolBar）的大小，对每个带应用Break，然后对每个带应用Width（循环两次）。

如果这不起作用，则可以尝试直接调用Windows消息。 这将允许您同时设置两个属性。

uses
  CommCtrl;
...
var
  Info: TRebarBandInfo;
...
  ZeroMemory(@Info, SizeOf(Info));
  Info.cbSize := SizeOf(Info);
  Info.fMask := RBBIM_SIZE + RBBIM_STYLE;
  Info.cx := 400; // Your desired width
  Info.fStyle := RBBS_BREAK + OldStyle;
  SendMessage(Coolbar.Handle, RB_SETBANDINFO, 0, Integer(@Info));

那应该可以，但是要求您使OldStyle等于现有样式。 反过来，这将要求您要么复制TCoolBar.UpdateItem中的许多代码，要么首先发送消息RB_SETBANDINFO。 很痛苦，因此请尝试先分配“中断”再分配“宽度”。

在Delphi Windows SDK帮助文件中，如果需要，请在“钢筋参考”中查看所有消息的信息。 在我的网站上，帮助URL（用于帮助查看器）是ms-help：//embarcadero.rs2009/ShellCC/platform/commctls/rebar/reflist.htm