有没有办法改变delphi 2010中的滚动条样式？

Question

我刚刚在构建 delphi 2010 应用程序时注意到滚动条在显示时始终具有相同的大小。无论实际需要滚动多少内容，条中间的滚动条始终具有相同的大小。相比之下，大多数现代应用程序使用滚动条，其中滚动条的大小与可滚动的量成正比，因此通过查看就可以清楚有多少内容可供滚动。有没有办法改变我的delphi控件上的滚动属性，或者需要自定义控件？

编辑： 此特定实例中的组件是 TDBGrid，它水平滚动。我没有意识到Windows正在绘制这些滚动条。也许沃伦是对的，但这个问题是无法回答的。比例滚动条在 Windows 上可能并不普遍，但我还没有在我的 Windows 机器上找到不使用它们的程序。甚至 Delphi 2010 IDE 也使用它们。

Answer 1

这就是我在我的自定义组件（一个简单的文本查看器）中执行此操作的方法：

procedure TCustomViewer.UpdateScrollInfo;
var
  ScrollInfo: TScrollInfo;
begin
  with ScrollInfo do
  begin
    cbSize := SizeOf(ScrollInfo);
    fMask := SIF_POS or SIF_PAGE or SIF_RANGE or SIF_DISABLENOSCROLL;
    nMin := 0;
    nMax := 1023;
    nPage := PageWidth;
    nPos := FTopLeft.X;
  end;
  SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
  with ScrollInfo do
  begin
    nMax := FLines.Count - 1;
    nPage := PageHeight;
    nPos := FTopLeft.Y;
  end;
  SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);
  UpdateCaretPos;
  Update;
end;

IOW，您使用 TScrollInfo，用您需要更改的值填充它，包括 nMax< /code> 和 nPage，并用它调用 SetScrollInfo，指示要更改的滚动条。我确信大多数带有滚动条的控件都会在内部控制它们，但如果控件没有，您可以尝试 SetScrollInfo。这可能对其中一些人有用。 TScrollInfo 和 SetScrollInfo 在 Windows.pas 中定义。这是MSDN 链接。