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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi6-xe5 中的md5实现方法

Delphi 四舍五入含小数点函数

Delphi 验证ip地址

Delphi richedit的实现msn / qq 中的动画表情

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi通过解析搜狐网页来获取天气的函数

Delphi unigui获取连接的客户端列表

Delphi利用线程注入技术实现刷新流量

firemonkey listbox 的几个事件：拖动，点击，长按

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

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

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