建立任意图片形状窗口的方法

  var
  Form1: TForm1;

  implementation

  {$R *.DFM}

  function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN;
  var
  dc, dc_c: HDC;
  Rgn, TempRgn: HRGN;
  X, Y, BeginY: Integer;
  line: boolean;
  color