创建位图型不规则窗体(可透明,可移动)

核心提示：//代码来自互联网, ccrun整理 :)在Form上添加一个OpenPictureDialog，添加一个Image，创建位图型不规则窗体(可透明,可移动)，并为其添加一个图片，再加一个PopupMenu，//---void __fastcall TForm1::BmpToRgn(){Image1->AutoSi

　　//代码来自互联网, ccrun整理 :)

在Form上添加一个OpenPictureDialog，添加一个Image，并为其添加一个图片。再加一个PopupMenu，并创建两个菜单项，一个是Open1，一个是Exit1，其中前者是打开图象文件对话框，后者为退出程序。设置Image1的PopupMenu属性为PopupMenu1。

在Form1的OnCreate事件中添加：
void __fastcall TForm1::FormCreate(TObject *Sender)
{
　BmpToRgn();
}

在.h文件中的PRivate段中添加
　　　　void __fastcall TForm1::BmpToRgn();

这个函数用来创建不规则窗体。
//---------------------------------------------------------------------------
void __fastcall TForm1::BmpToRgn()
{
　Image1->AutoSize=true;
　Form1->AutoSize=true;
　Form1->BorderStyle=bsNone;　//将Form的标题栏去掉
　TColor ColorKey=Image1->Canvas->Pixels[0][0];　//以这个点的颜色为透明基准色
　int x,y;
　int l,r;
　POINT *a;
　bool lb,rb;
　HRGN wndrgn,temprgn;

　if((a=(POINT *)malloc(Width*2*(sizeof(POINT))))==NULL)
　{
　　ShowMessage("申请内存失败!");
　　exit(0);
　}

　l=0;r=Image1->Height*2-1;
　wndrgn=CreateRectRgn(0,0,Image1->Width,Image1->Height);

　for(y=0;y<Image1->Height;y++)
　{
　　lb=true;
　　for(x=0;x<Image1->Width+1;x++)
　　　if(Image1->Canvas->Pixels[x][y]!=ColorKey)
　　　{
　　　　a[l].x=x;
　　　　a[l].y=y;
　　　　lb=false;
　　　　break;
　　　}
　　if(lb) a[l]=a[l-1];
　　l++;
　　rb=true;

　　for(x=Image1->Width;x>=0;x--)
　　　if(Image1->Canvas->Pixels[x][y]!=ColorKey)
　　　{
　　　　a[r].x=x;
　　　　a[r].y=y;
　　　　rb=false;
　　　　break;
　　　}
　　if(rb) a[r]=a[r+1];
　　r--;
　}

　r=Image1->Height*2-1;
　for(y=0;y<Image1->Height-1;y++)
　{
　　for(x=a[y].x;x<=a[r].x;x++)
　　　if(Image1->Canvas->Pixels[x][y]==ColorKey)
　　　{
　　　　temprgn=CreateRectRgn(x,y,x+1,y+1);
　　　　CombineRgn(wndrgn,wndrgn,temprgn,RGN_XOR);
　　　　DeleteObject(temprgn);
　　　}
　　r--;
　}
　//temprgn=CreatePolygonRgn(a,Image1->Height*2,ALTERNATE);
　temprgn=CreatePolygonRgn(a,Image1->Height*2,WINDING);
　CombineRgn(wndrgn,wndrgn,temprgn,RGN_AND);
　DeleteObject(temprgn);
　delete a;
　SetWindowRgn(Handle,wndrgn,true);
}

为了使没有标题栏的窗体能移动，需要在Image1的OnMouseDown事件中添加以下代码：
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
　　　TMouseButton Button, TShiftState Shift, int X, int Y)
{
　if(Button == mbLeft)
　{
　　ReleaseCapture();
　　Perform(WM_NCLBUTTONDOWN,HTCAPTION, 0);
　}
}

//---------------------------------------------------------------------------
//通过右键菜单中的Exit1退出程序
void __fastcall TForm1::Exit1Click(TObject *Sender)
{
　Close();　　　　
}

//---------------------------------------------------------------------------
//打开图片文件，并以这个图片创建不规则窗体
void __fastcall TForm1::Open1Click(TObject *Sender)
{
　if(OpenPictureDialog1->Execute())
　{
　　Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
　　BmpToRgn();
　}
}
注重图片的背景色要相同。