Msgbox メッセージダイアログ

Msgbox関数はダイアログにメッセージを表示し、ボタンを押されるのを待ちます。 Delphiでは ShowMessage手続きまたは MessageDlg関数を使用します。

■ ShowMessage の例 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : string;
begin
  S :=  'Delphi';
  ShowMessage('お勧めは' + #13#10 + S + 'です！');  
  //#13#10は改行を表します
end;

■ MessageDlg の例 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if  MessageDlg('よかですか？', mtWarning, [mbYes, mbNo], 0) = mrYes then  
  begin
    //[はい]が選ばれた
    MessageDlg('いいみたい', mtInformation, [mbOk] , 0);
  end else begin
    //[いいえ]が選ばれた
    MessageDlg('だめみたい', mtInformation, [mbOk] , 0);
  end;
end;

ダイアログのタイプ (列挙型)
値 内容
mtWarning 黄色の！マーク
mtError 赤色の停止マーク
mtInformation 青色の i マーク
mtConfirmation 緑色の？マーク
mtCustom ビットマップ無し

ダイアログのボタン (集合型)
引数 内容
mbYes [ はい ]
mbNo [ いいえ ]
mbCancel [ キャンセル ]
mbHelp [ ヘルプ ]
mbAbort [ 中止 ]
mbRetry [ 再試行 ]
mbIgnore [ 無視 ]
mbAll [ すべて ]