delphi - BorderStyle=bsNoneのときにTFormにスクロールバーを表示させる方法は?

Question

BorderStyle が bsNone に設定されている場合、AutoScroll が True で一部の子コントロールの位置が ClientWidth/ClientHeight の値を超えていても、TForms は通常スクロールバーを表示しません。

したがって、BorderStyle が bsNone に設定されている場合でも、(必要な場合に) TForm にスクロールバーを表示するように「強制」する方法/ハックはありますか?

Answer 1

をフォームに配置し、 Align TScrollBox=Client にして、すべてのコントロールをスクロール ボックスに配置します。

TScrollBox非常に柔軟なので、私はいつも a を使用しています。上揃えのパネルをフォーム (スクロール ボックスの外側) に追加すると、スクロールされない領域ができます。フォーム全体をスクロールすることは常に役立つとは限らず、見栄えもよくありません。