delphi - 没有刷新的FMX控件

我有简单的fmx表单（Delphi 10.2 Tokyo）：





在代码中，我第二秒显示Button2：

procedure TForm6.FormCreate(Sender: TObject);
begin
    Button2.Visible :=false;
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
    Button2.Visible := true;
    TTask.Create(procedure
        begin
            Sleep(1000);
            TThread.Synchronize(nil, procedure
                begin
                    Button2.Visible := false;
                    //tries
                    //Button2.Repaint;
                    //Layout1.Repaint;
                    //Self.InvalidateRect(Self.Bounds);
                    //Application.ProcessMessages;
                end);
        end).Start;
end;

但在button2隐藏之后，就会出现伪影。手动调整大小后，它消失了。



如何迫使它刷新？

最佳答案

您需要使用

ShadowEfect1.UpdateParentEffects;