Membuat Form Delphi Berbentuk Bulat

Untuk mencegah kebosanan dengan melihat form pada aplikasi yang selalu berbentuk kotak maka saya akan berbagi sedikit listing untuk membuat form berbentuk bulat agar terlihat lebih menarik dan tidak monoton. Kira - kira beginilah cara membuatnya:

1. Buatlah project aplikasi baru sesuaikan ukuran form sesuai dengan keinginan anda. Misalnya seperti ini
   
   
   
2. Arahkan kursor ke jendela object inspector, pilih halaman events lalu klik OnCreate
   
3. Lalu tuliskan listing program berikut ini

          procedure TFormBulat.FormCreate(Sender: TObject);

          var

          region: HRgn;

          begin

          region:=CreateEllipticRgn(1,1,300,300);

          SetWindowRgn(handle,region,True);

          end;

Setelah itu tekan tombol F9 untuk melihat hasilnya. Seperti inilah kira - kira nanti hasilnya nanti setelah di run