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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 3句话绕过xxx拦截删除桌面快捷方式

Delphi用idhttp提交自定义cookie

Delphi中bitmap位图与base64字符串相互转换

Delphi mscomm1自动获取串口

Delphi firedac 下的 sqlite [8] - 自定义函数

Delphi 如何在窗体标题栏添加按钮

Delphi中关键字inherited

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi 10.2 ide界面

Delphi xe listbox 行高根据内容高度进行调速

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

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