掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スクロールバーのPageSizeの設定を正しく行うには？ (ID：33349)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなんでどうでしょう？ unit UFeScrollBar; interface uses Classes, StdCtrls; type TFeScrollBar = class(TScrollBar) private bufPos:Integer; protected procedure Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer); override; public constructor Create(AOwner: TComponent); override; end; implementation { TFeScrollBar } constructor TFeScrollBar.Create(AOwner: TComponent); begin inherited; bufPos := -1; end; procedure TFeScrollBar.Scroll(ScrollCode: TScrollCode; var ScrollPos: Integer); begin if ScrollPos > Max - PageSize + 1 then ScrollPos:= Max - PageSize + 1; if bufPos<>ScrollPos then inherited; bufPos := ScrollPos; end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.