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

Saturday, March 19, 2016

Membuat Form Setengah Lingkaran Delphi 7



Hello Katabah!
Sekarang kita membuat form Delphi dari kotak persegi menjadi setengah lingkaran.

Langkah pertama:
Buka Delphi 7


Kemudian….
Agar tampilannya lebih jelas, mari kita ubah warna form menjadi merah dengan langkah ini:
1. Klik form kosong
2. Pilih warna merah (clRed) di Object Inspector – Properties – Color

Sekarang, kita mulai buat form kotak menjadi setengah lingkaran dengan langkah-langkah ini:
1. Klik dua kali form kosong
2. Ketik script ini:
var
  slingkaran:HRGN;
begin
  slingkaran:=CreateEllipticRgn(100,100,700,700);
    SetWindowRgn(handle,slingkaran,true);
  DeleteObject(slingkaran);

3. Jalankan program dengan menekan tombol F9 di keyboard
4. Sekarang kita sudah mempunya form setengah lingkaran berwarna merah.


Bagaimana keluar dari program setengah lingkaran yang sedang dijalankan?
1) Klik menu Run
2) Klik Program Reset

Manfaat dari modifikasi form seperti di atas antara lain dapat digunakan untuk tampilan depan sebuah program aplikasi, misalnya yang menampilkan login atau proses loading.

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