1. 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);
var
region : HRgn;
begin
region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;