Skip to main content

Delphi 7 – Message Box

Format penulisan

MessageBox();
Application.MessageBox();

contoh Message Box

Application.MessageBox('isi pesan','judul pesan',MB_OK or MB_ICONSTOP)
Application.MessageBox('isi pesan','judul pesan',MB_OK or MB_ICONSTOP)
if Application.MessageBox('isi pesan','judul pesan',MB_OK or MB_ICONSTOP)=IDOK then
Begin
  ....Jika OK....
End;

Button Message Box

MB_OK[OK]IDOK
MB_OKCANCEL[OK][CANCEL]IDOK IDCANCEL
MB_ABORTRETRYIGNORE[ABORT][RETRY][IGNORE]IDABORT IDRETRY IDIGNORE
MB_YESNOCANCEL[YES][NO][CANCEL]IDYES IDNO IDCANCEL
MB_YESNO[YES][NO]IDYES IDNO
MB_RETRYCANCEL[RETRY][CANCEL]IDRETRY IDCANCEL
MB_HELP[OK][HELP]

Icon Message Box

MB_ICONEXCLAMATION
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERIKS
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR
MB_ICONHAND

One thought to “Delphi 7 – Message Box”

Tinggalkan Balasan