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

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);


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