Delphi中TFlowPanel实现滚动条效果

由于TFlowPanel中没有设置滚动条的相关属性。所以我们只好另辟溪径。再加一个tscrollbox来实现。

具体操作如下：

1，先添加一个Tscrollbox,设置其align为alclient。autosize默认为false,不用改动。

2,在其中添加一个tflowpanel,设置align为altop,autosize为true,autowrap为true。在这其中一定要将align设置为altop,如果设置为其它都不会有滚动条的。

实际实验时，tflowpanel不起作用。而用trzflowpanel时，没问题。

还有一点需要注意的是，当改变tflowpanel的大小时，其中的控件不能自动重排。需要重写根据情况定义下tflowpanel的宽度才行。

如改变窗口大小时，在onresize中加上：flowpanel1.width:=self.clientwidth;