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

{以图片的形状作为窗体形态}

{使窗体透明 透明的只剩下个控件} 

// 调用 setFormTransParent(Form1); 


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