如何滚动TFlowPanel的内容？

Question

TFlowPanel控件的Delphi实现似乎缺少C＃版本的重要特性，AutoScroll。

AutoWrap= False和AutoScroll=True的C＃控件的行为类似于水平可滚动控件列表。

我如何模仿控件的C＃版本的行为？

谢谢， 阿林

P.S。 我知道我可以使用TScrollBox来获取此行为，但TFlowPanel（在非残缺版本中）允许更多的灵活性。

Answer 1

在 TScrollBox 中创建 TFlowPanel ，并使用以下属性：

• Align：alLeft
• AutoSize：TRUE
• AutoWrap：FALSE

这应该可以让你了解我的想法。

Answer 2

如果要垂直滚动

FlowPanel1.Align := alTop;
FlowPanel1.AutoSize := True;
FlowPanel1.AUtoWrap := False;

Answer 3

对于正在寻找一种有效的垂直滚动方法的人：

procedure TfrmSample.FixVerticalScroll(const AFloatPanel: TFloatPanel);
begin
  fFloatPanel.Align := alTop;
  fFloatPanel.AutoSize := True;
  fFloatPanel.AutoWrap := True;
  fFloatPanel.OnResize := OnFlowPanelResize;
end;

procedure TfrmSample.OnFlowPanelResize(Sender: TObject);
begin
  // Fix: otherwise panel is not operating on the full width
  fFloatPanel.Align := alClient;
  fFloatPanel.Align := alTop;
end;