創(chuàng)建位圖型不規(guī)則窗體(可透明,可移動(dòng))

在Form上添加一個(gè)OpenPictureDialog，添加一個(gè)Image，并為其添加一個(gè)圖片。再加一個(gè)PopupMenu，并創(chuàng)建兩個(gè)菜單項(xiàng)，一個(gè)是Open1，一個(gè)是Exit1，其中前者是打開圖象文件對(duì)話框，后者為退出程序。設(shè)置Image1的PopupMenu屬性為PopupMenu1。
    在Form1的OnCreate事件中添加：
    void __fastcall TForm1::FormCreate(TObject *Sender)
    {
     BmpToRgn();
    }
    在.h文件中的private段中添加
     void __fastcall TForm1::BmpToRgn();
    這個(gè)函數(shù)用來(lái)創(chuàng)建不規(guī)則窗體。
    //---------------------------------------------------------------------------
    void __fastcall TForm1::BmpToRgn()
    {
     Image1->AutoSize=true;
     Form1->AutoSize=true;
     Form1->BorderStyle=bsNone; //將Form的標(biāo)題欄去掉
     TColor ColorKey=Image1->Canvas->Pixels[0][0]; //以這個(gè)點(diǎn)的顏色為透明基準(zhǔn)色
     int x,y;
     int l,r;
     POINT *a;
     bool lb,rb;
     HRGN wndrgn,temprgn;
     if((a=(POINT *)malloc(Width*2*(sizeof(POINT))))==NULL)
     {
     ShowMessage("申請(qǐng)內(nèi)存失敗!");
     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;