Blog | Beli Rumah | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Audit Sistem Informasi
Sistem Informasi (S1)
Manajemen Informatika
Komputer dan Pendidikan
Pengobatan Ruqyah
Daftar Isi | Skripsi SI | B. Arab | Sertifikat Komputer Internasional | PrivacyPolicy | Inggris Arab

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