如何用代码改变一个窗体showmodal返回值

Question

在一个form上，如果设有bitbtn1,bitbtn2,基中bitbtn1的kind为bkok,bitbtn2的kind为kbcancel。分别点这两个按钮，form.showmodal的返回值分别1和2。我想做两个speedbutton,分别实现上述两个功能，让showmodal的返回值为1和2，如何实现？高手相助。

Answer 1

form.ModalResult:=
记住在form.close以后再调上一句

Answer 2

speedbutton的事件分别用bitBtn按事件试试.
procedure speedButton1.OnClick(Sender : TObject);
begin
  bitBtn1.OnClick(nil);// 如果不需要参数的话
end

Answer 3

你试试返回Self.ModelResult看看能不能实现

Answer 4

procedure speedButton1.OnClick(Sender : TObject);
begin
  ModalResult:=mrOK;
end

Answer 5

再form.onclose事件中判断那个按钮被按下，改变self.modelResult的值。