成立可透明、可移动的位图型不法则窗体[VC/C++编程]

在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();
　 }
}

注企图片的后台色要相同.