怎样把Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion) 中的三个按钮对应三个事件啊。

Question

怎样把Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion) 中的三个按钮对应三个事件啊。if  Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion)=idyes then 事件1
if  Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion)=idno then 事件2
if  Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion)=idcancel then 事件3像上面这样写会弹出三次窗口，而我只要弹出一次窗口。

Answer 1

case Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion) of
  idyes:..;
  idno:..;
  else..;
end;

Answer 2

定义一个变量
var 
 i:integer
begin
 i:=Application.MessageBox('内容','标题',mb_yesnocancel+mb_iconquestion);
 if i=idyes then
  ....//以下省略
end;

Answer 3

把三个If用一个Case合并就可以了.........

Answer 4

对啊，
使用CASE不就可以了吗?