// Method 1: Utilize irregular images
(1) Procedure TFORM1.FormCreate (Sender: TOBJECT); Begin Self.ClientWidth: = HotiMage1.width; self.clientHeight: = hotimage1.height; brush.style :=bsclear;
(2) Set the Border attribute of the Form1 to Bssizeable
(3) Place a TIMAGE on Form1, set its Transparent property to TRUE, and set an irregular image in TIMAGE.PICTURE
// Method Two
Procedure TForm1.FormCreate (Sender: TOBJECT); VAR HR: THANDLE; Begin // Hr: = CreatellipticRGN (self., self.top, self.width, self.height); hr: = cretellipticRGN (0, self.height- Self.clientHeight, Self.ClientWidth, Self.ClientHeight; SetWindowRgn (Handle, HR, True);