delphi - 如何让TForm在BorderStyle=bsNone时显示滚动条？

Question

当其 BorderStyle 设置为 bsNone 时，即使 AutoScroll 为 True 并且某些子控件位置超过 ClientWidth/ClientHeight 值，TForms 通常也不会显示滚动条。

那么，即使其 BorderStyle 设置为 bsNone，是否有任何方法/黑客可以“强制”TForm 显示滚动条(在需要时)？

Answer 1

在窗体上放置一个TScrollBox，使其Align=Client，将所有控件放在滚动框上。

我总是使用 TScrollBox 因为它非常灵活。您可以将顶部对齐的面板添加到表单(滚动框之外)，并且您将获得一个非滚动区域。让整个表单滚动并不总是有帮助，而且几乎永远不会看起来很好。