支持Alpha透明的背景窗体

半透明的Alpha窗体背景

前面已经说过原理了，这次封装了一下，做成一个通用的背景窗体，方便调用。

效果图如下：

使用方法：

如果窗体A需要以背景显示，请制作一张大小相符的支持Alpha透明的图片，如附件的bkpng.png。然后再窗体A的CreateParams(需要重载)中写入代码

procedure TFrmConfig.CreateParams(var P: TCreateParams);

begin

 inherited;

 P.WndParent := FrmBK.Handle;

end;

调用的时候，使用：

   if FrmBK.ShowForm(FrmConfig, 'bkpng') = mrOK then

其中'bkpng'为资源的名字或者图片的文件的名字！