作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

DELPHI 光盘中有一个有一个演示程序名字是 coolstuf。我在这个程序中发现一个有趣的现象。一旦你将第三行工具栏“链接栏”拖动到最顶端，然后再拖回原来的位置，那么工具栏最下方会多出一个大概 40px 的空白区域。这个问题很恶心，我暂时称它作“工具栏错位”。在 google 中搜索，发现也有其他人讨论过此问题。原因大致是：当工具栏高度发生变化后，刷新消息 RBN_HEIGHTCHANGE 发送的时候，高度没被正确计算。因此它在执行 AdjustSize 时就出现了偏差，而导致了错位。

我没找到现成的解决方案，于是只好自己动手寻找突破口。我发现这个问题只有在当某个工具栏设置过 FixedSize = True 后才出现。于是想到了这样一个办法，就是在接受到 RBN_HEIGHTCHANGE 后，先将所有工具栏都设置成 FixedSize = False。这样的话高度计算就正确了。

好了，我们开始着手修改 ComCtrls.pas 了。

1. 找到 procedure TCoolBar.CNNotify(var Message: TWMNotify);
2. 使用如下代码：
  case Message.NMHdr^.code of
    RBN_HEIGHTCHANGE:
    begin
      (* Moved to WMSIZE(...)
      if IsAutoSized and (ComponentState * [csLoading, csDestroying] = []) then
      begin
        ReadBands;
        BeginUpdate;
        try
          if AutoSize then AdjustSize;
        finally
          EndUpdate;
        end;
      end
        else if IsBackgroundDirty then Invalidate;
      *)
      msgFromHEIGHTCHANGE := True;
      PostMessage(Handle, WM_SIZE, Handle, Longint(@Message));
    end;

3. 找到 procedure TCoolBar.WMSize(var Message: TWMSize);
4. 替换成如下代码：
var
  msgFromHEIGHTCHANGE: boolean;

procedure TmxCoolBar.WMSize(var Message: TWMSize);
var
  I: Integer;
  BandInfo: TReBarBandInfo;
begin
  inherited;

  if msgFromHEIGHTCHANGE then
  begin
    msgFromHEIGHTCHANGE := False;

    if IsAutoSized and (ComponentState * [csLoading, csDestroying] = []) then
    begin
      for I := 0 to Bands.Count - 1 do
        if Bands[I].FixedSize then
        begin
          FillChar(BandInfo, SizeOfReBarBandInfo, 0);
          BandInfo.cbSize := SizeOfReBarBandInfo;
          BandInfo.fMask := RBBIM_STYLE;
          Perform(RB_GETBANDINFO, Bands[I].FID and IDMask, Integer(@BandInfo));
          BandInfo.fStyle := BandInfo.fStyle or 0;
          Perform(RB_SETBANDINFO, Bands[I].FID and IDMask, Integer(@BandInfo));
        end;

      ReadBands;
      BeginUpdate;
      try
        if AutoSize then AdjustSize;
      finally
        EndUpdate;
      end;
    end
      else if IsBackgroundDirty then Invalidate;
  end;
end;

好了！大功告成。将修改后的 ComCtrls.pas 复制到 coolstuf 目录下，再次编译文件。
这个问题消失了。

相关软件：