掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スクロールボックスのスクロール領域全体のサイズを得るには？ (ID：20838)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご指摘ありがとうございます。確認したコードが誤っていました。 フォームのClientRectになっていて、ScrollBox1.Widthと一致していたようです。 間違った情報を載せてしまい、申し訳ありません。 修正して確認し、次のようになりました。 訂正いたします。 No｜Width｜CR-CL｜Range｜スクロールバーの有無｜ １｜ 800｜ 796｜ 1000｜有 ｜ ２｜ 1000｜ 996｜ 1000｜有 ｜ ３｜ 1001｜ 997｜ 1000｜有 ｜ ４｜ 1003｜ 999｜ 1000｜有 ｜ ５｜ 1004｜ 1000｜ 1000｜無 ｜ ※WidthはScrollBox1.Width、CR-CLはScrollBox1.ClientRect.Right-ScrollBox1.ClientRect.Left 次のコードで確認しました。 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('X=' + IntToStr(ScrollBox1.HorzScrollBar.Range)); ShowMessage('Width='+ IntToStr(ScrollBox1.Width)); ShowMessage('ClientRect.Right - ClientRect.Left='+ IntToStr(ClientRect.Right - ClientRect.Left)); ShowMessage('ScrollBox1.ClientRect.Right - ScrollBox1.ClientRect.Left='+ IntToStr(ScrollBox1.ClientRect.Right - ScrollBox1.ClientRect.Left)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.