Form Berbentuk Bulat Pada Delphi

28 09 2009

Pembuatan form berbentuk bulat ini ditujukan pada pengguna yang merasa jenuh dan bosan ketika berinteraksi dengan aplikasi yang dibuatnya. Salah satu cara untuk mengatasinya yakni dengan mengubah penampilan form agar terlihat cukup menarik, tip berikut ini mencoba untuk menampilkan sisi lain dari tampilan form yang terlihat monoton. Maka dari itu Anda bisa langsung mencoba tip berikut ini.

Dalam melakukan tip ini, Anda dapat menggunakan perintah SetWindowRGN untuk mengubah tampilan form tersebut. Tip ini juga menyertakan contoh sederhana penggunaan metode dengan sebuah Elliptic Region.

Cara membuatnya adalah sebagai berikut:

1. Buatlah sebuah proyek aplikasi baru, kemudian letakkan sebuah Button pada form tersebut, ukuran form disesuaikan dengan keinginan Anda(tapi jangan terlalu kecil).

2. Arahkan kursor Anda ke jendela object inspector, kemudian pilih halaman kejadian(Events) lalu pilih OnCreate milik form tersebut. Kemudian tuliskan baris program dibawah ini:

procedure TForm1.FormCreate(Sender: TObject);
var
region: HRGN;
begin
region:=CreateEllipticRgn(1,1,200,200);
setWindowRgn(Handle, region, true);
Button1.Caption:='Keluar';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

3. Setelah Anda merancang form dan menuliskan baris programnya, maka saatnya Anda mengujinya dengan menekan tombol F9 dan lihat hasilnya.


Aksi

Information

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: