Ekspresi | Kampus | Belajar HTML dan PHP | Kontak | Gmail | Uang Adsense
Kemahasiswaan Kilas Santai
PMB Online STMIK Jabar 2022
STMIK JABAR
LP3I Tasikmalaya
STAI Al-Falah
Pengobatan Ruqyah
Belajar Pemrograman PHP, MySQL, Framework CI, Domain, Hosting, CMS Wordpress, Framework Laravel. Yang Penting ada menu DAFTAR ISI
Daftar Isi | Skripsi | B. Arab | Ruqyah | PrivacyPolicy | Inggris Arab | Google Translate

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."
Youtube: Katabah Com: Menuju 1 jt Konten :)