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

Monday, March 7, 2016

Menampilkan Pesan Dengan Button atau BitBtn Delphi 7



Hello Katabah!
Untuk membuat tombol dengan Delphi dapat menggunakan ikon Button atau BitBtn. Sekarang kita menggunakannya untuk menampilkan pesan. Jadi, ketika tombol buatan kita diklik, maka akan muncul pesan yang kita ketikkan, misalnya: “Hello…!”


a. BUTTON
1. Buka Delphi 7
2. Muncul form kosong
3. Klik Button di komponen Standard
4. Klik di form kosong
5. Klik dua kali Button yang telah diletakkan di form
6. Ketik script berikut ini:
ShowMessage('Halo!');

7. Untuk melihat hasilnya, jalankan program dengan menekan tombol F9 di keyboard
8. Klik tombol yang bertuliskan Button1
9. Muncul kotak dialog bertuliskan “Halo!” dan tombol OK


Cara menampilkan pesan dengan Button sudah selesai. Kemudian kita akan menampilkan pesan dengan BitBtn seperti pada langkah-langkah berikut ini:

B. BITBTN
1. Buka Delphi 7 (Kalau Delphi Anda sudah terbuka, tidak perlu dibuka lagi)
2. Klik BitBtn di Additional
3. Klik di form kosong (misalnya, di samping kanan tombol Button1 yang telah kita buat pada latihan A di atas)
4. Sekarang muncul tombol bertuliskan BitBtn1
5. Klik dua kali tombol BitBtn1 yang telah kita buat tadi
6. Ketik script berikut ini:
Application.MessageBox('Hai!', 'Informasi', MB_OK or MB_ICONEXCLAMATION);

7. Untuk melihat hasilnya, jalankan program dengan menekan tombol F9 di keyboard
8. Klik tombol yang bertuliskan BitBtn1
9. Akan muncul kotak dialog bertuliskan “Hai!”

Ini contoh desainnya:


Selamat Anda telah berhasil menampilkan pesan dengan Delphi. Cara ini biasanya akan bermanfaat baik untuk sekedar latihan maupun ketika membuat program sungguhan.

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