Delphi添加图层蒙版，运行本程序后，在屏幕上添加一层阴影，透明度大概在70%左右，可看作是在屏幕上方蒙了一层薄膜的感觉，代码简单：procedureTForm1.FormCreate(Sender:TObject);　　var　　bTrans:Byte;　　OldStyle:Integer;　　begin　　form1.Color:=clGradientActiveCaption;　　WindowState:=wsMaximized;　　BorderStyle:=bsNone;　　FormStyle:=fsStayOnTop;