嵌入式表单上的控件未刷新（Delphi，Firemonkey）

Question

我正在构建一个非常简单的Firemonkey项目（RadStudio 10.3.3），以测试将来项目的某些布局选项。在过去的VCL中，我使用模式形式。我正在测试的项目在主窗体（Form1）上使用面板（Panel1和Panel2）来嵌入两个其他窗体（Form2和Form3）。这两个嵌入式表单在每个表单上都包含一个列表框（ListBox1）。主窗体上的面板重叠，因此我使用Visibility属性显示所需的嵌入式窗体。所有代码都在主窗体上。

我遇到的问题是，当我在Form2和Form3之间切换时，加载到Form3列表框中的字符串永远不会出现。我在列表框和面板上尝试了重画，在列表框上尝试了InvalidateRect，在面板上尝试了SetFocus，等等。没有成功的方法。

主要代码是：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Panel2: TPanel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure EmbedForm(AParent:TControl; AForm:TCustomForm);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses Unit2, Unit3;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Embed Form2 in Panel1
  Application.CreateForm(TForm2, Form2);
  EmbedForm(Panel1, Form2);
  Panel1.Visible := true;

  // Embed Form3 in Panel2
  Application.CreateForm(TForm3, Form3);
  EmbedForm(Panel2, Form3);
  Panel2.Visible := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Populate ListBox1 on Form2 - the LOAD button
  Form2.ListBox1.Items.Add('Hello');
  Form2.ListBox1.Items.Add('World');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Hide Panel1 (Form2) and show Panel2 (Form3)
  Panel1.Visible := false;
  Panel2.Visible := true;
  // Populate ListBox1 on Form3
  Form3.ListBox1.Items.Add('Goodbye');
  Form3.ListBox1.Items.Add('World');
  // Repaint (Here's why I have tried various things to get the listbox strings to show up)
  //Panel2.Repaint;
  //Form3.ListBox1.Repaint;
  //Application.ProcessMessages;
end;

procedure TForm1.EmbedForm(AParent: TControl; AForm: TCustomForm);
begin
  while AForm.ChildrenCount>0 do
    AForm.Children[0].Parent:=AParent;
end;

end.

再次，Form2和Form3每个都只包含一个列表框（两个都为Listbox1），没有其他代码。我只运行可执行文件，单击Button1以显示Hello World，然后单击Button2以切换面板并显示第二个窗体及其列表框。当我刚接触Firemonkey时，我确定我缺少一些简单的东西。感谢您提供的所有帮助！

Answer 1

我可以重现该错误的唯一方法是，将表单和两个面板之间的父子关系设置为错误。

例如我可以重现您描述的错误行为，如果Panel2是Panel1的子级，但是如果它们都是形式的子级，则无法重现该问题。在IDE中检查结构窗口。