Berikut format message pada delphi
MessageBox(0, ‘<text>’,pchar(‘<title>’),<mb+mb>)
Dukungan mbButton adalah sebagai berikut:
mbButton: mb_OK mb_OKCancel mb_AbortRetryIgnore
mb_YesNo mb_RetryCancel mb_YesNoCancel
mbBitmap: mb_IconExclamation mb_IconQuestion
mb_IconInformation mb_IconError
mbDefaultButton: mb_DefButton1..mb_DefButton4
mbModality: mb_ApplModal mb_SystemModal
mb_TaskModal
mbSpecial: mb_Default_DeskTop_Only mb_TopMost
mb_Right mb_SetForeground mb_Help
idReturnValues: idOK idCancel idYes idNo
idAbort idIgnore idRetry
MessageDlg(‘<text>’, <mt>, [<mb>, <mb>], 0)
Dukungan mtBitmap adalah sebagai berikut:
mtBitmap: mtWarning mtError mtInformation
mtConfirmation mtCustom
Dukungan mbButton adalah sebagai berikut:
mbButtonText: mbOK mbCancel mbYes mbNo mbAll
mbAbort mbRetry mbIgnore mbHelp
mrReturnValues: mrNone mrOk mrCancel mrRetry
mrYes mrNo mrIgnore mrAbort mrAll
InputBox(‘<caption>’, ‘<text>’, ‘<default str>’)
ShowMessage(‘<text>’, + #13 + ‘<text>’)
Coba aja sendiri…. 
Filed under: Programing
