Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

Thursday, March 31, 2016

Tombol Close, Minimize, Maximize Buatan Sendiri Delphi 7



Hello Katabah!
Pada tutorial ini, saya membuat Tombol Close, Minimize dan Maximize menggunakan komponen SpeedButton. Tombol-tombol ini biasanya digunakan ketika kita ingin menyembunyikan Title Bar, Tombol Close, Minimize dan Maximize bawaan Delphi.


Mari kita awali dengan membuat desain tombol Minimize:
1. Buka Delphi 7
2. Klik Additional pada Component Pallete
3. Klik SpeedButton
4. Klik area kosong pada form
5. Muncullah SpeedButton1
6. Klik Caption pada Object Inspector – Properties
7. Ketik: - (tanda minus untuk tombol minimize)
8. Masih di Properties, klik tanda + pada font
9. Klik Size
10. Ketik: 20 (awalnya 8)
11. Sekarang tanda minus (-) pada SpeedButton1 sudah tampak besar

Selanjutnya kita membuat desain tombol Maximize:
12. Klik lagi Additional pada Component Pallete
13. Klik SpeedButton
14. Klik area kosong pada form
15. Muncullah SpeedButton2
16. Klik Caption pada Object Inspector – Properties
17. Ketik: + (tanda plus untuk tombol maximize)
18. Masih di Properties, klik tanda + pada font
19. Klik Size
20. Ketik: 20 (awalnya 8)
21. Sekarang tanda plus (+) pada SpeedButton2 sudah tampak besar

Kemudian, kita buat desain tombol Close yang berfungsi untuk menutup aplikasi. Mari lanjutkan dengan langkah-langkah berikut ini:
22. Klik lagi Additional pada Component Pallete
23. Klik SpeedButton
24. Klik area kosong pada form
25. Muncullah SpeedButton3
26. Klik Caption pada Object Inspector – Properties
27. Ketik: X (tanda silang atau huruf x untuk tombol close)
28. Masih di Properties, klik tanda + pada font
29. Klik Size
30. Ketik: 18 (awalnya 8)
31. Sekarang tanda silang (x) pada SpeedButton3 sudah tampak besar

Sampai langkah 31, tombol-tombol tersebut belum berfungsi. Oleh karena itu, kita tambahkan script-nya.

32. Klik dua kali tombol – (SpeedButton1)
33. Ketik script ini:
Application.Minimize;

34. Klik dua kali tombol + (SpeedButton2)
35. Ketik script ini:
Form1.WindowState:=wsMaximized;

36. Klik dua kali tombol x (SpeedButton3)
37. Ketik script ini:
Application.Terminate;

38. Jalankan program dengan menekan F9 di keyboard. Kemudian, klik masing-masing tombol di atas. Nikmati hasilnya…! He..he..

Ini tampilan desainnya:


"Bitcoin and Forex are high risk business. We must join them smartly."
loading...