procedure TForm1.FormShow(Sender: TObject);
var rtn:longint;
begin
rtn:=GetWindowLong(Handle,GWL_EXSTYLE);
rtn:=rtn Or WS_EX_LAYERED ;
SetWindowLong(Handle,GWL_EXSTYLE,rtn);
SetLayeredWindowAttributes(Handle,0,100,LWA_ALPHA);
end;
var rtn:longint;
begin
rtn:=GetWindowLong(Handle,GWL_EXSTYLE);
rtn:=rtn Or WS_EX_LAYERED ;
SetWindowLong(Handle,GWL_EXSTYLE,rtn);
SetLayeredWindowAttributes(Handle,0,100,LWA_ALPHA);
end;
Form1.TransparentColor:=True;
Form1.TransparentColorValue:=clBlack;//何种颜色为透明的。
Form1.Color:=clBlack;//设窗体设定的透明色