Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

Thursday, March 10, 2016

Membuat Form Lingkaran di Delphi 7



Hello Katabah!
Tampilan bawaan dari Delphi 7, form itu biasanya berbentu persegi atau kotak. Akan tetapi, kita bisa membuat variasi bentuk form tersebut, misalnya berbentuk lingkaran.

Mari kita praktekkan…!

1. Buka Delphi 7
2. Klik Button di kategori Standard dari Component Pallete
3. Letakkan Button tersebut di form kosong
4. Klik Button1 yang ada di form
5. Klik Caption pada Properties (Object Inspector)
6. Ketik: Keluar
7.Klik Left pada Properties (Object Inspector)
8. Ketik: 126
9. Sekarang tombol Button1 sudah berubah teksnya menjadi “Keluar”
10. Klik dua kali tombol Keluar
11. Ketik script ini:
Application.Terminate;

12. Kembali ke form design (F12)
13. Klik dua kali di area kosong pada form
14. Ketik script berikut ini:
var
  l:HRGN;
begin
  l:=CreateEllipticRgn(30,30,300,300);
    SetWindowRgn(handle,l,true);
  DeleteObject(l);

15. Jalankan program dengan menekan tombol F9 di keyboard

Jreng-jreng…..sekarang, formnya sudah berbentuk lingkaran alias bulat. Iya kan…?

Agar lebih keren, silahkan ubah warna formnya dengan warna lain, seperti: merah, kuning, hijau atau warna kesukaanmu. Cara mewarnai form sudah saya jelaskan di tutorial lain.

"Bitcoin and Forex are high risk business. We must join them smartly."
loading...