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

　　//代码来自互联网, 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;yHeight;y++)

　　 {

　　 lb=true;

　　 for(x=0;xWidth+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;yHeight-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();

　　 }

　　}

　　注重图片的背景色要相同。