Rounded Form

Seperti biasanya delphi akan membuat form berbentuk segi empat,, dan bagaimana cara membuat agar form berbentuk lingkaran atau elips..???
Disini saya akan memberikan contoh bagaimana cara membuatnya klik 2x pada form setelah itu ketik syntax berikut ini :

procedure TForm.1.FormCreate(Sender: TObject);
var
Region : Hrgn;
begin
Region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(Handle, region, true);
end;

Untuk merubah bentuk form silahkan anda rubah nilai yang terdapat pada baris Region:=CreateEllipticRgn(1,1,200,200);" tanpa tanda kutip. Selamat mencoba semoga bermanfaat.

Referensi http://www.klik-kanan.com