DelphiMessagedlgでの使用法
Usage Delphi Messagedlg
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close end MessageDlgの使用法
ダイアログタイプ：
mtwarning--感嘆符を含む警告ダイアログボックス
Mterror--赤い十字記号を含むエラーダイアログボックス
Mtinformation--青い記号iを含む情報ダイアログ
緑の疑問符mtconfirmationを含む確認ダイアログボックス-
一般ダイアログmtcustom--無料アイコン、ダイアログボックスのタイトルはプログラムの名前です
ボタングループボタン：
mbYes-mrYesまたは6
mbNo-mrNoまたは7
mbOk-mrOkまたは1
mbCancel-mrCancelまたは2
mbHelp-ヘルプボタン
mbAbort-mrAbortまたは3
mbRetry-mrRetryまたは4
mbIgnore-mrIgnoreまたは5
mbAll-mrAllまたは8
mbNoToAll-9
mbYesToAll——10
|_+_|手順 TForm1.Button1Click（送信者：TObject）
どこ
S： ストリング
ベギン
もし MessageDlg（ ' チップボックス ' 、mtInformation、[mbok、mbyes]、 0 ）。 = mryes その後
messagebeep（MB_ICONEXCLAMATION）
終わり
TMsgDlgType = （mtWarning、mtError、mtInformation、mtConfirmation、mtCustom）
TMsgDlgBtn = （mbYes、mbNo、mbOK、mbCancel、mbAbort、mbRetry、mbIgnore、
mbAll、mbNoToAll、mbYesToAll、mbHelp）
const
mrNone = 0
闇 = idOk
mrCancel = idCancel
mrAbort = idAbort
mrRetry = idRetry
mrIgnore = idIgnore
mrYes = idはい
mrNo = アイディー番号
mrAll = mrNo + 1
mrNoToAll = mrAll + 1
mrYesToAll = mrNoToAll + 1
MessageDlg（）情報といえば
Delphi、定数はconsts.pasに配置され、次のようなローカリゼーションの目的を達成できるように変更します。
MessageDlg（）は、ウィンドウのタイトルを表示します。
ボタンのキャプションは英語ですが、使用には影響しませんが、中国語のソフトウェアでは常に違和感があります。
これを行うには、consts.pasで次を探します。
'SMsgDlgWarning'
ザ・
SMsgDlgWarning = ' 警告 '
SMsgDlgError = ' エラー '
SMsgDlgInformation = ' 情報 '
SMsgDlgConfirm = ' 確認 '
SMsgDlgはい = ' ＆はい '
SMsgDlgNo = ' ＆しない '
SMsgDlgOK = ' OK '
SMsgDlgCancel = ' キャンセル '
SMsgDlgHelp = ' ＆助けて '
SMsgDlgHelpNone = ' 利用可能なヘルプはありません '
SMsgDlgHelpHelp = ' 助けて '
SMsgDlgAbort = ' ＆中絶 '
SMsgDlgRetry = ' ＆リトライ '
SMsgDlgIgnore = ' ＆無視する '
SMsgDlgAll = ' ＆すべて '
SMsgDlgNoToAll = ' すべてにN＆o '
SMsgDlgYesToAll = ' はい、すべて '
変化する
SMsgDlgError = ' エラー '
SMsgDlgInformation = ' 促す '
SMsgDlgConfirm = ' 確認 '
SMsgDlgはい = ' は（＆Y） '
SMsgDlgNo = ' ない（＆N） '
SMsgDlgOK = ' 決定する '
SMsgDlgCancel = ' キャンセル '
SMsgDlgHelp = ' ヘルプ（＆H） '
SMsgDlgHelpNone = ' この助けなしで '
SMsgDlgHelpHelp = ' 助けて '
SMsgDlgAbort = ' あきらめる（＆A） '
SMsgDlgRetry = ' 再試行（＆R） '
SMsgDlgIgnore = ' 無視（＆I） '
SMsgDlgAll = ' すべて（＆A） '
SMsgDlgNoToAll = ' すべてなし（＆O） '
SMsgDlgYesToAll = ' すべて（＆A） '
次に、Consts.pas、Consts.ducを再コンパイルします
Delphiとlibサブディレクトリslibの下でのコピー。
複製：https：//www.cnblogs.com/jxsoft/archive/2011/03/09/1978150.html