RAD Studio 10.3 测试√
需要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;
接下来看效果如何
学习中记录的一点点笔记,以便以后翻阅。