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:
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
