MEMBUAT ROUNDED FORM

Secara default form yang Anda buat akan berbentuk segi empat. Dengan menambahkan beberapa baris kode berikut Anda dapat membuat form berbentuk elips atau lingkaran.

procedure TForm1.FormCreate(Sender: TObject);

1. var
2.    region : HRgn;
3. begin
4.      region := CreateEllipticRgn(1,1,200,200);
5.      SetWindowRgn(handle, region, true);
6. end;
    
   Jika Anda membuka referensi Windows API tentang function CreateEllipticRgn maka akan didapat keterangan seperti di bawah ini:
   HRGN CreateEllipticRgn(
   int nLeftRect, // x-coordinate of the upper-left corner of the bounding rectangle
   int nTopRect, // y-coordinate of the upper-left corner of the bounding rectangle
   int nRightRect, // x-coordinate of the lower-right corner of the bounding rectangle
   int nBottomRect // y-coordinate of the lower-right corner of the bounding rectangle
   );