Ekspresi | Belajar HTML dan PHP | Sunda | Kontak | Gmail | Uang Adsense
Kemahasiswaan Kilas Santai
PMB Online STMIK Jabar 2021
STMIK JABAR
LP3I Tasikmalaya
STAI Al-Falah
Pengobatan Ruqyah
Belajar Pemrograman PHP, MySQL, Framework CI, Domain, Hosting, CMS Wordpress, Framework Laravel. Yang Penting ada menu DAFTAR ISI
Inkubator | Daftar Isi | Bisnis Bitcoin | Tools Penting | PrivacyPolicy | Inggris Arab

Monday, March 21, 2016

Membuat Form Lingkaran Terpotong Dari Atas Delphi 7



Hello Katabah!
Semakin rajin berkreativitas, maka bentuk form Delphi pun akan semakin bervariasi. Sekarang, saya belajar membuat form lingkaran yang sedikit terpotong dari arah atas.


1. Buka Delphi
2. Klik area kosong pada form
3. Klik Color pada Object Inspector – Properties
4. Pilih warna biru (clBlue)
5. Sekarang form sudah berubah warna menjadi biru
6. Klik dua kali area kosong pada form
7. Ketik script ini:
var
  belah:HRGN;
begin
  belah:=CreateEllipticRgn(100,-300,300,300);
  SetWindowRgn(handle,belah,true);
  DeleteObject(belah)

Ingaaat…!
Jangan terlewat tanda minus sebelum angka 300 (harus -300, bukan 300).

8. Jalankan program dengan menekan F9 di keyboard
9. Hasilnya seperti ini:


Proyek kita sudah beres…..


Untuk menutup program, klik Run – Program Reset

Jika penasaran dengan penambahan tanda minus (-300), coba saja hapus tanda minus (menjadi 300), kemudian jalankan lagi dengan F9. Hasilnya hanya garis horizontal (datar dari kiri ke kanan), bukan?

**
Selamat berlatih dan berkreasi coding dengan berbagai kreativitas agar proses belajar tetap menyenangkan!

"Bitcoin and Forex are high risk business. We must join them smartly."
Belajar Bahasa Inggris dan Arab di Telegram dan FB Gratis!
Youtube: Katabah Com: Menuju 1 jt Konten :)