showmodal的返回值如何确定(30分)

tianlianglm · 2002-05-09

procedure TForm1.New1Click(Sender: TObject);
begin
with form2 do
begin
...
if showmodal<>idcancel then
begin
...
end;
end;
end;
if 条件语句执行不下去，为什么？

smj_9547 · 2002-05-09

showmodal好象没有返回值的！

minikiller · 2002-05-09

form,button 的属性里可以找到modalResult ，设置其为mrOK,mrCancel 就可以！
self.ModalResult :=mrok;

胡柚 · 2002-05-09

if showmodal=mrOK then
可以得到form的button的返回值

duckstar · 2002-05-09

mrCancel试试。当然，你得设置Cancel键的ModalResult为mrCancel。

duanliandl · 2002-05-09

showmodal可以有返回值。如：
Form2里有一个按钮bitbtn，在FORM2关闭之前设置bitbtn的modalresult，则form2.showmodal的返回值就是
modalresult。

tianlianglm · 2002-05-10