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

在Form上添加一個OpenPictureDialog，添加一個Image，并為其添加一個圖片。再加一個PopupMenu，并創(chuàng)建兩個菜單項，一個是Open1，一個是Exit1，其中前者是打開圖象文件對話框，后者為退出程序。設(shè)置Image1的PopupMenu屬性為PopupMenu1。
    在Form1的OnCreate事件中添加：
    void __fastcall TForm1::FormCreate(TObject *Sender)
    {
     BmpToRgn();
    }
    在.h文件中的private段中添加
     void __fastcall TForm1::BmpToRgn();
    這個函數(shù)用來創(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]; //以這個點的顏色為透明基準(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("申請內(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;