Delphi 操作前，删除前，覆盖前，询问对话框

本文整理自网络，侵删。

 
if MessageBox(self.Handle,'吃了吗？','系统提示',MB_OKCANCEL OR    MB_ICONINFORMATION)  = IDOK then
   begin
   ShowMessage('吃了');
   end
else
   begin
   ShowMessage('没吃');
   end;
 

相关阅读 >>

Delphi 日期时间计算

Delphi 重启启动计算机的代码

Delphi 判断当前活动窗口

Delphi 如何将颜色值转换为html格式？

Delphi xe5 android 获取网络状态

Delphi indy防止假死

Delphi 从网址链接中提取域名

Delphi textfile读取文本文件

Delphi 结构化文件存取

Delphi 10.3 控件遮挡 webbrowser

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 操作前，删除前，覆盖前，询问对话框