Delphi Style组件之毛玻璃半透明显示窗体特效

Delphi Style组件之毛玻璃半透明显示窗体特效

需要2个窗体，Form1上面添加一个Button和scStyledForm，空白的Form2

scStyledForm属性设置：

然后双击Button搞代码

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2 := TForm2.Create(Self);

  with Form2 do

  begin

    scStyledForm1.ShowClientInActiveEffect;                // 显示半透明的效果

    ShowModal;

    scStyledForm1.HideClientInActiveEffect;                // 隐藏半透明的效果

    Free;

  end;

end;

接下来看效果如何

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/108316999