在delphi里面怎样才能弹出一个带‘确认’，‘取消’的对话框，点取消后就不执行后面的语句啦！谢谢！

14 个解决方案

#1

IF Application.MessageBox('真的确认删除吗?删除后数据将不能恢复','警告',MB_OKCANCEL)=ID_OK
    THEN BEGIN
            QRYDEL(DATAFROM.Database1,DATAFROM.Query1);
         END;

#2

if MessageBox(0, '信息', '标题', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK then
ShowMessage('OK')
else ShowMessage('Cancel');

#3

if Application.Messagebox('确认删除记录！', '提示'，mb_Iconinformation+MB_OKCANCEL) = mrCancel then
begin
exit;
end;

#4

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

#5

if MessageDlg('确定要删除吗',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then

#6

application.messagebox('确认或退出','提示',mb_iconquestion+mb_okcancel)

#7

if application.messagebox(...)=mrcancel then
abort;

#8

to IORILI:
　　不能用MessageDlg的

#9

MessageBox

#10

if MessageBox(self.handle, '确定要退出么?', '提示'，mb_iconQuestion + mb_OkCancel + mb_DefButton2) = id_Ok then
close();

#11

if application.MessageBox('是否确信退出?','提示',MB_YESNO) = IDNO then
CanClose :=false;

#12

MessageBox(handle, '错误，请重新输入!','错误',0);

#13

if MessageBox(self.handle, '确定要退出么?', '提示', mb_iconQuestion + mb_OkCancel + mb_DefButton2) = idOk then
close();

#14

来了那么多啊，还怎么混饭吃啊

#1