透明窗体透明窗体 控件正常显示

//TransparentFrm透明窗体透明窗体 控件正常显示 
{以图片的形状作为窗体形态}
{使窗体透明 透明的只剩下个控件} 
// 调用 setFormTransParent(Form1); 

procedure setFormTransParent(Form:TForm); 
begin 
  Form.BorderStyle:=bsNone; 
  Form.TransparentColor:=True; 
  Form.TransparentColorValue:=20; 
  Form.Color:=Form.TransparentColorValue; 
end;

参考：http://www.cnblogs.com/xe2011/archive/2012/05/31/2527420.html