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

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