MessageBox adalah Kotak dialog berfungsi untuk memberikan
Respon terhadap user. Atau kotak pesan yang menampilkan peringatan atau
perintah pada komputer.Ada beberapa macam model MessagBox di Delphi
diantaranya:
1.
ShowMessage
2.
Messagedlg
3.
Dan Application.MessageBox
Penggunaan MessageBox ShowMessage
Syntak Program :
ShowMessage('Anda Tidak Mendapat Diskon karena total belanja
< 100.000' );
Keterangan
Syntak diatas hanya berfungsi menampilkan informasi saja
berkenaan dengan proses yang telah dikaukan oleh delphi
Penggunaan MessageBox Messagedlg
Syntak Program :
if MessageDlg('Yakin anda akan keluar dari Aplikasi ini ?',
mtConfirmation,[mbYes,mbNo],0)=
mrYes then
close;
close;
Keterangan Program
- Jika Button Konfirmasi Di Klik maka akan tampil Pesan konfirmasi ‘Yakin akan keluar dari aplikasi ini’dengan 2 Pilihan Yakni Yes Dan No.
- Jika Yes Di Pilih maka aplikasi akan keluar (exit)
- JIka No maka tetap tidak akan exit.
Sitak diatas merupakan
message resultartinya jika ingin menggunakan statemen if diatas yang
menggunakan message box dengan tombol yes no,maka untuk message result tombol
yes,dalam delphi memakai angka 6. Berikut daftar tabelnya.
Tabel Result MessageBox |
Penggunaan MessageBox Application.MessageBox
Syntak :
application.MessageBox ('Usia Tidak Boleh Kosong..','Aplikasi',
MB_OK+ MB_NOFOCUS + MB_ICONERROR);
MB_OK+ MB_NOFOCUS + MB_ICONERROR);
No comments:
Post a Comment