var<br> rtn:Integer;<br>begin<br> setwindowlong(self.handle,gwl_exstyle,(getwindowlong(self.handle,gwl_exstyle) or WS_EX_LAYERED));<br><br> rtn:=getwindowlong(self.handle,gwl_exstyle);//取的窗口原先的样式<br> rtn:= rtn Or WS_EX_LAYERED;// 使窗体添加上新的样式WS_EX_LAYERED<br> setwindowlong(self.handle,gwl_exstyle,rtn); //把新的样式赋给窗体<br> SetLayeredWindowAttributes(self.handle,0,SpinEdit1.Value ,LWA_ALPHA);//把窗体设置成半透明样式,第三个参数表示透明程度,取值范围0--255,为0时就是一个全透明的窗体了<br>end;