創建不規則窗口

　　// 方法一 ：利用不規則圖片

　　(1)
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　  self.ClIEntWidth := HotImage1.Width ;
　　  self.ClIEntHeight := HotImage1.Height ;
　　  brush.style:=bsClear;
　　end;

　　(2)把Form1 的 BorderStyle 屬性設置為 bsSizeable

　　(3)在Form1 上放置一個 TImage,設置其Transparent屬性為 true,
　　   並在 TImage.picture 中設置一個不規則圖片

　　// 方法二

　　procedure TForm1.FormCreate(Sender: TObject);
　　var
　　  hR : THandle;
　　begin
　　 // hR := CreateEllipticRgn(self.  ,self.top ,self.Width  ,self.Height );
　　  hR := CreateEllipticRgn(0,self.height-self.clientHeight,self.clientWidth,self.clIEntHeight  );
　　  SetWindowRgn(Handle,hR,True);
　　end;