Ekspresi | Les Private Arab-Inggris via WA dan FB Gratis | Sunda | Kontak | Gmail | Uang Adsense
Kuliah Sistem Informasi,
Jurnal Ilmiah Sistem Informasi
STMIK JABAR
LP3I Tasikmalaya
Jurnal STAI al Falah
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."
Belajar Bahasa Inggris dan Arab di WA dan FB Gratis!