delphi - Delphi：模态表单闪烁

Question

有一个模态表单：标签、按钮、组框。

我通过单击按钮从表单 1 调用：Form2.ShowModal;

当表格 2 首先出现时 - 由于混合效果，一切都很好。但是下一个表单的外观有闪烁，尤其是标签、按钮。我尝试使用DoubleBuffered:=True/False and ParentFont:=True/False (in case of a group box, frame). 它没有帮助:(

有人可以帮忙吗？谢谢！

Answer 1

好的，这可以解决问题，如果有更好的解决方案，请替换此解决方案...

第一，OnFormCreate

Form2.AlphaBlendValue := 0;
Form2.AlphaBlend := true;

2、添加定时器，OnTimerEvent

Form2.AlphaBlendValue := 255;  
Form2.AlphaBlend := false;
Timer1.Enable := False;

第三 OnFormShow

Timer1.Enable := True;