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

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

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





你可能感兴趣的:(form)