setFormTransParent() 透明窗体透明窗体控件正常显示

//TransparentFrm透明窗体透明窗体控件正常显示
{以图片的形状作为窗体形态}
{使窗体透明透明的只剩下个控件}
// 调用 setFormTransParent(Form1);
procedure setFormTransParent(Form:TForm);
begin
  Form.BorderStyle:=bsNone;
  Form.TransparentColor:=True;
  Form.TransparentColorValue:=20;
  Form.Color:=Form.TransparentColorValue;
end;