5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
snakewb 2002-06-08
- 打赏
- 举报
在DELPHI6.0中,窗体有ALPHABLEND和ALPHABLENDVALUE两个属性,其中第一个控制是否要有透明效果,后一个则是透明的比例
netlib 2002-06-08
- 打赏
- 举报
其中
WS_EX_LAYERED = $00080000;
WS_EX_LAYERED = $00080000;
netlib 2002-06-08
- 打赏
- 举报
procedure TForm1.FormCreate(Sender: TObject);
var
ExtStyle : LongInt;
begin
Step:=255;
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0,0,0), 150, 2);
end;
var
ExtStyle : LongInt;
begin
Step:=255;
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0,0,0), 150, 2);
end;
