delphi - 如何从 TCustomControl 制作一个 TScrollbox？

Question

我创建了一个在 Canvas 上具有油漆覆盖的组件，我想设置最小宽度和高度的限制。当宽度或高度小于限制时，滚动条应该出现在侧面，就像滚动框一样，也可以滚动。

我选择 TCustomControl 是因为我在双缓冲时绘画和更少的闪烁。

任何想法或更好的解决方案？

Answer 1

TScrollBox和 TCustomControl两者都来自 TWinControl . TScrollBox和 TScrollingWinControl添加滚动条，而 TCustomControl添加 Canvas 。为了得到你想要的，你可以添加一个 Canvas 到 TScrollingWinControl ，或者您可以将滚动条添加到 TCustomControl .

比较两个类的定义(分别在 Forms.pas 和 Controls.pas 中)，应该清楚哪个功能更容易在您的后代中复制。 TCustomControl添加了三个简单的方法，用大约 40 行代码实现。写个 TScrollingWinControl后代并从 TCustomControl 复制方法和属性进去。