那就来段代码吧procedure tm var l:longint; begin l:=getWindowLong(Handle, GWL_EXSTYLE); l := l Or WS_EX_LAYERED; SetWindowLong (handle, GWL_EXSTYLE, l); SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);//第二个参数是指定透明颜色 //第二个参数为0则使用第四个参数设置alpha值,从0到255,其他的我不太清楚,因为没有api帮助 end;
Form 設AlphaBlend為true 改變AlphaBlendValue值:不为255就可以!
1.设窗体的AlphaBend属性为true;
2.设其AlphaBendValue值,0-255之间。
0为不透明,255为全透明
1.设窗体的AlphaBend属性为true;
2.设其AlphaBendValue值,0-255之间。
0为全透明,255为不透明
var
l:longint;
begin
l:=getWindowLong(Handle, GWL_EXSTYLE);
l := l Or WS_EX_LAYERED;
SetWindowLong (handle, GWL_EXSTYLE, l);
SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);//第二个参数是指定透明颜色
//第二个参数为0则使用第四个参数设置alpha值,从0到255,其他的我不太清楚,因为没有api帮助
end;
改變AlphaBlendValue值:不为255就可以!