用TscStyledForm制作效果如下: 正常的效果: 代码如下: procedure TForm2.Button1Click(Sender: TObject); begin Form1.ShowModal; end; 运行效果如图: 特效制作步骤如下: 放置一个scStyledForm