Hello Katabah!
Sekarang kita membuat
form Delphi dari kotak persegi menjadi setengah lingkaran.
Langkah pertama:
Buka Delphi 7
Kemudian….
Agar tampilannya lebih
jelas, mari kita ubah warna form menjadi merah dengan langkah ini:
1. Klik form kosong
2. Pilih warna merah
(clRed) di Object Inspector – Properties – Color
Sekarang, kita mulai
buat form kotak menjadi setengah lingkaran dengan langkah-langkah ini:
1. Klik dua kali form
kosong
2. Ketik script ini:
var
slingkaran:HRGN;
begin
slingkaran:=CreateEllipticRgn(100,100,700,700);
SetWindowRgn(handle,slingkaran,true);
DeleteObject(slingkaran);
3. Jalankan program
dengan menekan tombol F9 di keyboard
4. Sekarang kita sudah
mempunya form setengah lingkaran berwarna merah.
Bagaimana keluar dari
program setengah lingkaran yang sedang dijalankan?
1) Klik menu Run
2) Klik Program Reset
Manfaat dari modifikasi
form seperti di atas antara lain dapat digunakan untuk tampilan depan sebuah
program aplikasi, misalnya yang menampilkan login atau proses loading.