我有简单的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;
但是在按钮2隐藏后,会出现人工制品。它在手动形成调整大小后消失了。
如何强制刷新?
答案 0 :(得分:5)
您需要使用
ShadowEfect1.UpdateParentEffects;