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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi中stringgrid删除行

secsperday：一天共有多少秒

Delphi 调用clipboard 收集剪切板信息

Delphi firedac在后台线程中从mssql server检索记录的方法

webbrowser部分用法

Delphi nethttpclient post 函数

Delphi最简单的多线程网页采集

Delphi 全局的鼠标钩子 使用钩子函数数据传递

Delphi xe 提权代码

Delphi用socket api实现路由追踪

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

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