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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 控制台 输入输出实例代码

Delphi d10.x 并行库ppl编程之 futures

Delphi image上文字平滑移动

Delphi 给gmail发送邮件

Delphi 过滤字符串特殊符号的函数

Delphi实现获取密码框中的密码

Delphi 之 工具栏组件(ttoolbar)

Delphi winapi: getfocus - 获取当前拥有焦点的窗口的句柄

Delphi 在瑞星2010全保护下创建文件夹

Delphi 加载图像并压缩，旋转图像角度

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

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