if form1.showmodal:=mrok then 什么意思

if form1.showmodal:=mrok then

这句话什么意思？

最佳答案

这个问题说来话长，且听我慢慢道来。。。 首先，你仔细看一看，所有的命令按钮(不论是Button还是BitBtn)都有一个属性：ModalResult，该属性可以设置为mrOk 、mrCancel...等等，默认值是mrNone。 平时，ModalResult属性没什么用处，但如果命令按钮放置到用showmodal显示（模态显示，一般用于显示对话框）的窗体上时，就大大的有用了。 作用体现在： 1、当设置命令按钮的ModalResult属性为mrOk、mrCancel...等时，程序运行后，单击该按钮，按钮所在的窗体会自动关闭，不用在OnClick事件中添加诸如Close；语句。 2、当设置命令按钮的ModalResult属性为mrOk、mrCancel...等时，程序运行后，单击该按钮，按钮所在的窗体会自动关闭，同时将按钮的ModalResult属性值赋值给窗体的ModalResult属性（注意：任何窗体都有这个属性！） 3、自动关闭上述窗体时，窗体的ModalResult属性又会自动传递给showmodal方法，作为该方法的返回值。 所以说，showmodal方法的返回值总是与命令按钮的ModalResult属性相同。 楼主的代码： if form1.showmodal=mrok then 如果要通俗化一下，可以写成如下等价的代码： var r:TModalResult; ...... ....... r:=form1.showmodal; if r=mrOK then ... ... 很明显，根据showmodal方法的返回值，可以判断用户在对话框中，究竟是点击了OK按钮还是Cancel按钮，从而决定下一步的程序逻辑。 最后，更正一下楼主的语法错误：showmodal:=mrok 应该写成 showmodal=mrok （等号左边没有冒号） 不知这样的回答是否满意？ 呵呵。。。

////////////////////////////////////////////////////////////////////////////////

好几个按钮 都设置ModalResult:=mrOk;

然后怎样判断是哪个按钮的事件呢？
if vForm.ShowModal=mrOK then
begin
这边怎么判断是哪个按钮？
end;

方法很多，可以在vForm中定义一个公共变量

var K:Integer;

procedure vForm.Button1Click(Sender: TObject);
begin
 K:=1;
 ModalResult:=mrOk;
end;

procedure vForm.Button2Click(Sender: TObject);
begin
 K:=2;
 ModalResult:=mrOk;
end;

…

if vForm.ShowModal=mrOK then
begin
  if vForm.K=1 then
     showmessage('是Button1')
  else if vForm.K=2 then
     showmessage('是Button2')
  ...
end;