不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

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

楼主xchunyu（大吊车）2002-08-24 17:11:56 在 Delphi / VCL组件开发及应用提问

例如Jscript中可以实现如下的语句？

obj.onEvent=confirm("是否...进行如下操作？")
如果该方法返回true则事件向下进行，如果返回false则取消该事件的进行。
在下对delphi是新手，不知delphi可有以上类似confirm的函数可调用
如果没有该函数，是否可以编写prosedure实现？
并且onEvent类事件是否可以通过返回false来取消？

敬请赐教一二，使迷途得返

问题点数：98、回复次数：9Top

1 楼pazee（耙子)(今年过年不收礼，收礼只收尿不湿）回复于 2002-08-24 17:21:39 得分 0

1. 你可以自己做一个类似的对话框。

2.利用现成的东西

if (Application.MessageBox('是否...进行如下操作？','', MB_ICONQUESTION +　MB_YESNO) = IDYES) then
begin
....
xxxx
end
else
begin
// .....
end;Top

2 楼xxyzjf（Diamond）回复于 2002-08-24 17:22:45 得分 60

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;
Top

3 楼xchunyu（大吊车）回复于 2002-08-24 17:24:31 得分 0

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

4 楼xxyzjf（Diamond）回复于 2002-08-24 17:27:03 得分 0

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

5 楼pazee（耙子)(今年过年不收礼，收礼只收尿不湿）回复于 2002-08-24 17:27:40 得分 0

我不了解 JScript的编程，
但是我想和delphi的思想不同。你不该按照JSP的思想来写delphi的程序。

你正是在那个if then else里面写代码，要么执行，要么不执行。Top

6 楼xxyzjf（Diamond）回复于 2002-08-24 17:28:51 得分 0

如果你在该对话框中点NO按钮,则取销操作!Top

7 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2002-08-24 17:29:43 得分 38

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

8 楼xiaosanshao（）回复于 2002-08-24 17:32:46 得分 0

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

9 楼xiaosanshao（）回复于 2002-08-24 17:34:27 得分 0

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

10 楼xflcx（徐锋）回复于 2002-08-24 17:35:32 得分 0

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