Hello Katabah!
Form Delphi yang
biasanya berbentuk kotak dapat kita modifikasi bentuknya menjadi segitiga. Cara ini akan bermanfaat ketika membuat
aplikasi Delphi untuk game atau aplikasi-aplikasi yang tidak terlalu berkaitan
dengan database (basisdata).
Namun kalau aplikasi
basisdata seperti nota pembayaran sebaiknya tidak banyak dimodifikasi agar
tidak terlalu ramai yang berujung membingungkan pengguna atau menambah loading.
Mari kita membuat form
berbentuk segitiga dengan cara berikut ini:
1. Buka Delphi 7
2. Klik dua kali di area
kosong form
3. Ketik script berikut
ini:
var
s:HRGN;
begin
s:=CreateEllipticRgn(40,40,400,4000);
SetWindowRgn(handle,s,true);
DeleteObject(s);
4. Agar warna form lebih
jelas, tambahkan di bawah script nomor 3 kode berikut ini:
Form1.Color:=clRed;
5. Agar lebih mudah
menutup aplikasi segitiga buatan kita ini, silahkan tambahkan Button. Atur
setting berikut di Properties:
Left: 176
Top: 128
6. Klik dua kali Button1
tersebut. Ketik script ini:
Application.Terminate;
7. Jalankan program
dengan menekan tombol F9 pada keyboard
8. Ini hasilnya:
Catatan:
Agar lebih memahami
script di atas, maka kita boleh mengganti-ganti angka yang ada pada script ini:
s:=CreateEllipticRgn(40,40,400,4000);
|
"Boleh Konsultasi Masuk Jurusan Sistem Informasi via IG atau Tiktok."
|
|
Tips Skripsi Program Studi Sistem Informasi |
|
|
