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 12, 2016

Membuat Form Ellipse (Lonjong) Delphi 7



Hello Katabah!
Sekarang kita mengubah bentuk form dari kotak menjadi ellipse (lonjong) pada Delphi.

1. Buka Delphi 7
2. Klik dua kali area form yang kosong
3. Ketik script ini:
var
  e:HRGN;
begin
  e:=CreateEllipticRgn(20,30,300,200);
  SetWindowRgn(handle,e,true);
  DeleteObject(e);

4. Agar tampilan warna form lebih jelas, tambahkan script ini di bawah code langkah 3:
Form1.Color:=clGreen;

5. Script selengkapnya seperti ini:
procedure TForm1.FormCreate(Sender: TObject);
var
  e:HRGN;
begin
  e:=CreateEllipticRgn(20,30,300,200);
  SetWindowRgn(handle,e,true);
  DeleteObject(e);
  Form1.Color:=clGreen;
end;

6. Jalankan program dengan menekan tombol F9 pada keyboard
7. Hasilnya seperti ini:

Jika angka 300 diganti menjadi 200, maka form akan berbentuk bulat (lingkaran).
e:=CreateEllipticRgn(20,30,300,200);
diubah menjadi:
e:=CreateEllipticRgn(20,30,200,200);

Catatan:
Bagi yang masih kebingungan menutup form lonjong di atas, kita dapat menemukan tombol Close dengan mengarahkan kursor ke Taskbar seperti gambar ini:


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