消息对话框函数
<h3>MessageDlg</h3>
<p>MessageDlg('标题', '内容', '类型', '按钮组合', '帮助上下文')
例:</p>
<pre><code class="language-delphi">MessageDlg(&#039;提示&#039;, &#039;操作成功完成!&#039;, mtInformation, [mbOK], 0);</code></pre>
<h5>标题、内容aCaption,aMsg:</h5>
<p>标题和内容为字符串</p>
<h5>对话框类型ADialogType:</h5>
<ul>
<li>mtWarning (警告)</li>
<li>mtError (错误)</li>
<li>mtInformation (信息),显示信息图标</li>
<li>mtConfirmation (确认)</li>
<li>mtCustom (自定义)</li>
</ul>
<h5>按钮组合AButtons:</h5>
<ul>
<li>mbYes, mbNo</li>
<li>mbOK, mbCancel</li>
<li>mbAbort, mbRetry, mbIgnore</li>
<li>mbYesNoCancel</li>
<li>mbOKCancel</li>
<li>mbAbortRetryIgnore
使用方括号 [] 指定一组按钮。例:[mbYes, mbNo, mbCancel]</li>
</ul>
<p>处理返回值:
mrNone, mrOk, mrCancel
mrYes, mrNo, mrAll
mrNoToAll, mrYesToAll
mrClose, mrAbort, mrRetry, mrIgnore
使用 if...then 或 case...of
根据用户点击的按钮执行不同操作。</p>
<p>示例:
1.简单提示:显示一个信息提示框。</p>
<pre><code class="language-delphi">MessageDlg(&#039;提示&#039;, &#039;操作成功完成!&#039;, mtInformation, [mbOK], 0);
</code></pre>
<p>2.用户确认:显示一个带"是"、"否"按钮的确认对话框,并根据用户选择执行操作。</p>
<pre><code class="language-delphi">if MessageDlg(&#039;确认&#039;, &#039;您确定要删除这个文件吗?&#039;, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
// 用户点击了&quot;是&quot;,执行删除操作
DeleteFile(&#039;myfile.txt&#039;);
end;</code></pre>
<p>3.处理复杂按钮组合</p>
<pre><code class="language-delphi">case MessageDlg(&#039;问题&#039;, &#039;文件已修改,是否保存?&#039;, mtConfirmation, [mbYes, mbNo, mbCancel], 0) of
mrYes:
begin
// 用户点击&quot;是&quot;,执行保存操作
SaveToFile;
end;
mrNo:
begin
// 用户点击&quot;否&quot;,不保存继续
end;
mrCancel:
begin
// 用户点击&quot;取消&quot;,中止操作
Exit;
end;
end;</code></pre>