Check is TScrollBoxスクロールバーが実際に表示されます

Question

TScrollBox（Align := alClient）とシンプルなサイズのフォームがあり、一部のコントロールはTScrollBoxに配置されています。ユーザーがフォームサイズを変更すると、TScrollBoxはHorzScrollBarとVertScrollBarを表示して非表示にします（実際のクライアントフォームサイズに依存します）。

実行時の確認方法 - HorzScrollBarまたはVertScrollBarは現在表示されていますか？

TControlScrollBar.Visibleは、規制機能のみを備えているため、答えが出ません。

Answer 1

TControlScrollBar.IsScrollBarVisibleを使用してこれをテストします。

スクロールバーが表示されているかどうかを判断するには、IsScrollBarVisibleを呼び出します。 IsScrollBarVisibleは、Visibleプロパティがtrueで、関連するスクロールウィンドウコントロールにエッジからのマージンピクセル内にある子コントロールが含まれている場合にtrueを返します。