DElphi可否实现confirm带返回值的对话框?

Question

1. 你可以自己做一个类似的对话框。2.利用现成的东西if (Application.MessageBox('是否...进行如下操作？','', MB_ICONQUESTION +　MB_YESNO) = IDYES) then 
begin
   ....
   xxxx
end
else
begin
  // .....
end;

Answer 1

if messagedlg('你真的要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes
then
begin
end;
if messagedlg('你真的要删除吗?',mtwarning,[mbyes,mbno],0)=mryes then
begin
//do you want to do !
end;

Answer 2

感谢！
再问：是否可取消onEvent的event事件？就是截获使之停止发生？
（对不起太菜了，问题也不会问）

Answer 3

if messagedlg('你真的要删除吗!',mtconfirmation,[mbyes,mbno],o)=mryes then
begin
//do somethin
end;
有关messagedlg()的参数详见帮助!!!

Answer 4

我不了解 JScript的编程，
但是我想和delphi的思想不同。你不该按照JSP的思想来写delphi的程序。你正是在那个if then else里面写代码，要么执行，要么不执行。

Answer 5

都可以的,要自己写Form,
把一个Event的指针:=Nil,就可以取消该事件的执行

Answer 6

可以的，不必自己写Form,使用inputbox对话框即可，具体使用方法，自己查一下帮助咯……

Answer 7

补充一点，一般使用时是通过嵌套使用inputbox的。希望能对你有所帮助。

Answer 8

if (Application.MessageBox('是否...进行如下操作？','', MB_ICONQUESTION +　MB_YESNO) <> IDYES) then 
Exit;
....
Code