スクロールバーが範囲外になるのを防ぐには？

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プロパティを設定し、個々のプロパティを一つずつ設定しないようにSetParamsを呼び出してみてください。