不清爽FMX控制

Question

我有簡單的FMX形式（德爾福10.2東京）：

在代碼中，我展示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後皮革，人造物出現。它後手動形式調整大小。

如何迫使它刷新？

Answer 1

您需要使用

ShadowEfect1.UpdateParentEffects;