Form peringatan ini mempunyai banyak kegunaan diantara meminimalisir salah pencet dan salah menjalankan perintah yang tidak seharusnya, membuat kita memillih antara 2 atau lebih pilihan.
Bagaimana cara membuatnya lihat saja dibawah ini caranya :-s
2. Ikon Tanya dan Pilihan Yes No
3.Ikon Peringatan Warning Yes No Cancel
4.Ikon Peringan STOP Ok
Bagaimana cara membuatnya lihat saja dibawah ini caranya :-s
- Buat Form sebagai berikut:
- Berikan kode berikut pada Button1 / "Kata kataku :) "
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBoxA("Cintailah dia sepenuh jiwa dan ragamu","Kataku!!"
,MB_OK | MB_ICONWARNING );
}
- Maka saat dijalankan dan diklik kata2ku akan seperti ini
"Cintailah dia sepenuh jiwa dan ragamu" ;((
|
- Anda ingin mengganti ikon dan tombol, telah disedikan sebagai berikut :
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBoxA("Cintailah dia sepenuh jiwa dan ragamu","Kataku!!"
,MB_OK | MB_ICONINFORMATION );
}
Ikon Informasi maka hasilnya akan seperti ini :2. Ikon Tanya dan Pilihan Yes No
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBoxA("Apakah kamu mencintainya????","Perasaanmu!!"
,MB_YESNO | MB_ICONQUESTION );
}
Hasil :3.Ikon Peringatan Warning Yes No Cancel
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBoxA("Buktikan perasaanmu sekarang!!!!","Perasaanmu!!"
,MB_YESNOCANCEL | MB_ICONWARNING );
}Hasil :
4.Ikon Peringan STOP Ok
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Application->MessageBoxA("Kita PUTUS!!!!","Pesan dari pacar"
,MB_OK | MB_ICONSTOP );
}
| BYE (b) (b) (b) (b) (b) (b) |
Tidak ada komentar:
Posting Komentar