如何防止滚动条超出范围？

Question

我使用代码的

procedure TMyCanvas.RichEditChange(Sender: TObject);
var
  ScrollInfo: TScrollInfo;
begin

  FillChar(ScrollInfo, SizeOF(ScrollInfo), 0);
  ScrollInfo.cbSize := SizeOf(ScrollInfo);
  ScrollInfo.fMask := SIF_RANGE or SIF_PAGE or SIF_POS;
  if GetScrollInfo(FRichEdit.Handle, SB_VERT, ScrollInfo) then
  begin
    FVertScroll.Max := ScrollInfo.nMax;
    FVertScroll.Min := ScrollInfo.nMin;
    FVertScroll.PageSize := ScrollInfo.nPage;
    FVertScroll.Position := ScrollInfo.nPos;
  end;
  Invalidate;
end;

问题是，当我添加/删除行时，当我要调整表单大小时，有时会出现错误。它说“滚动条属性超出范围”

我该如何避免它？

谢谢

Answer 1

我收到此错误消息，发现初始化滚动条时发生了更改，当 PageSize 为 2 时，TScrollbar.Max 被设置为 0。在 Max 为 0 之前将 PageSize 设置为 0 修复了该问题。

Answer 2

我有另一个奇怪的问题（使用 LargeChange 和 SmallChange），它们被定义为 TScrollBarInc （在 StrCtrls TScrollBar 定义中），并且被定义为 1..32767 （在 Forms TScrollBarInc = 1..32767; 中）而不是 Integer，而 Min、Max 和 Position 被定义为 Integer（在 StdCtrls TScrollBar 定义上），也在 SetParams 上参数是整数，不是 1..32767。

（在我看来）这显然是 TScrollBarInc 类定义上的一个 BUG。

让我举个例子：

Edit1.Text:='100000000'; // Ten millions
MyScrollBar.Min:=0;
MyScrollBar.Max:=100000000; // One hundred millions
MyScrollBar.Position:=1000000; // One million
MyScrollBar.LargeChange:=StrToInt(Edit1.Text);
// When in Edit1.Text is "100000000" (ten millions), this puts in
//     LargeChange a negative value (-27008, not ten millions)
//     and there is no error at compile not at execution time.
MyScrollBar.SmallChange:=Round(StrToInt(Edit1.Text)/10);
// When in Edit1.Text is "100000000" (ten millions), this puts in
//     SmallChange a positive value (16960, not one million(
//     and there is no error at compile not at execution time.
Caption:=IntToStr(ScrollBar1.LargeChange)+' & '+IntToStr(ScrollBar1.SmallChange);
// This is to see the values (it shows '16960 & -27008').

需要一个 FIX，类的两个参数（LargeChange 和 SmallChange）的类型覆盖，因此将其类型覆盖为 Integer（与 Min、Max 和 Position 的类型相同）... IDE 帮助说 LargeChange 和 SmallChange 位于 Min & 中。最大范围，但不可能分配 0 和/或任何大于 32767 的值。

如何完成这种“类型覆盖”？编辑：现在我知道，这是在 TForm1 = class(TForm) 之前添加的代码，我的意思是在 interfase 使用之后，在任何类声明之前：

type
    TScrollBar=class(StdCtrls.TScrollBar)
    private
      // Just override the type to the correct type
      //    same type as Min, Max & Position
      FSmallChange:Integer;
      FLargeChange:Integer;
    protected
      // The scrool of LargeChange and SmallChange must be done by us
      procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer); override;
    public
    published
      // Just override the type to the correct type
      //    same type as Min, Max & Position
      property LargeChange: Integer read FLargeChange write FLargeChange default 1;
      property SmallChange: Integer read FSmallChange write FSmallChange default 1;
    end;

现在只需要捕获 OnScroll 并执行通过自己的代码进行滚动，而不是让主要的错误类代码完成这项工作...因为内部 SmallChange & LargeChange 是隐藏的，并且始终具有值 1。

procedure TScrollBar.Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
     // The +1 and -1 is to undo internal scroll that occurs
     //    so the desired scroll is not altered by one
     //    remember we had hide internal LargeChange & SmallChange
     //    and they will remain with value 1 forever
     case ScrollCode
       of scPageUp
          :begin
                ScrollPos:=ScrollPos-FLargeChange+1;
           end;
          scPageDown
          :begin
                ScrollPos:=ScrollPos+FLargeChange-1;
           end;
          scLineUp
          :begin
                ScrollPos:=ScrollPos-FSmallChange+1;
           end;
          scLineDown
          :begin
                ScrollPos:=ScrollPos+FSmallChange-1;
           end;
     end;
end;

PD：以防万一有人会问，TurboDelphi 2006 ... TTntScrollBar 也受到相同的不匹配类型定义的影响。

Answer 3

您可以尝试设置 PageSize 属性，并调用 SetParams 以避免一一设置各个属性。