FireMonkey FlowLayout 不刷新基于可见属性的项目

Question

你好吗？希望你做得很好。 我的问题：我有一个 FlowLayout，里面有很多布局，我需要根据单选按钮选择隐藏一些，在设计时它工作正常我将可见属性设置为 false，所有其他布局重新对齐右边方式，但是当我在运行时这样做时它不起作用，它会在已隐藏的布局和下一个布局之间保持空白。当我手动调整大小时（转到表单边框并稍微拖动），它会重新对齐并正确，但如果我选择另一个收音机，布局会恢复并覆盖另一个布局，所以我需要再次手动调整大小以重新对齐。我试图查看 Resize 的源代码，但没有任何相关信息。我尝试过：重绘、重新对齐、InvalidateRect、RecalcAbsolute。有什么方法可以强制刷新组件吗？

procedure
    TFrmApontamentoProducaoOrdemProducao.rbOrdensProducaoQuantidadeParcialClick(
    Sender: TObject);
begin
  if not lytQuantidadeParcial.Visible then
    lytQuantidadeParcial.Visible := True;
  // Tried to realign here
end;

procedure
    TFrmApontamentoProducaoOrdemProducao.rbOrdensProducaoQuantidadeTotalClick(
    Sender: TObject);
begin
  if lytQuantidadeParcial.Visible then
    lytQuantidadeParcial.Visible := False;
  // Tried to realign here
end;

这是一个简单的代码，但它给了我一个小问题。感谢您的帮助，如果您需要更多代码或更多详细信息，请告诉我。

Answer 1

您必须使用一对FlowLayout1.BeginUpdate; 和FlowLayout1.EndUpdate; 将更改TFlowLayout 布局的代码括起来，以确保更新计数器保持同步，您还应该使用try..finally..end 块。

例如

procedure TForm21.Button6Click(Sender: TObject);
begin
  FlowLayout1.BeginUpdate;
  try
    Layout3.Visible := not Layout3.Visible;
  finally
    FlowLayout1.EndUpdate;
  end;
end;