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

Monday, March 14, 2016

Membuat Form Segitiga Delphi 7



Hello Katabah!
Form Delphi yang biasanya berbentuk kotak dapat kita modifikasi bentuknya menjadi segitiga.  Cara ini akan bermanfaat ketika membuat aplikasi Delphi untuk game atau aplikasi-aplikasi yang tidak terlalu berkaitan dengan database (basisdata).


Namun kalau aplikasi basisdata seperti nota pembayaran sebaiknya tidak banyak dimodifikasi agar tidak terlalu ramai yang berujung membingungkan pengguna atau menambah loading.

Mari kita membuat form berbentuk segitiga dengan cara berikut ini:
1. Buka Delphi 7
2. Klik dua kali di area kosong form
3. Ketik script berikut ini:
var
  s:HRGN;
begin
  s:=CreateEllipticRgn(40,40,400,4000);
    SetWindowRgn(handle,s,true);
  DeleteObject(s);

4. Agar warna form lebih jelas, tambahkan di bawah script nomor 3 kode berikut ini:
Form1.Color:=clRed;

5. Agar lebih mudah menutup aplikasi segitiga buatan kita ini, silahkan tambahkan Button. Atur setting berikut di Properties:
Left: 176
Top: 128

6. Klik dua kali Button1 tersebut. Ketik script ini:
Application.Terminate;

7. Jalankan program dengan menekan tombol F9 pada keyboard
8. Ini hasilnya:


Catatan:
Agar lebih memahami script di atas, maka kita boleh mengganti-ganti angka yang ada pada script ini:
s:=CreateEllipticRgn(40,40,400,4000);

"Investasi Emas dan Reksadana, Untung Mana?."
Youtube: Katabah Com: Menuju 1 jt Konten :)