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!
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
