【玩转控件系列】Style控件组之TscStyledForm控件 --制作弹出窗体虚幻毛玻璃背景效果

用TscStyledForm制作效果如下：

正常的效果： 

---

代码如下：

procedure TForm2.Button1Click(Sender: TObject);
begin
    Form1.ShowModal;
end;

运行效果如图：

特效制作步骤如下：

 

放置一个scStyledForm

Button的代码如下：