关于showmodul 的问题————在线等待！！！！

Question

大家好：      搞了这么长时间的 DELPHI还是第一次碰到showmodul ，我看了一下delphi的
帮助，是不是只要窗体上有TButton类 就可以用showmodul啊 ？？请高手指点///

Answer 1

不是！
showmodul相当于对话框弹出，必须响应后才会结束ShowModel
SHOW是直接返回

Answer 2

procedure TMyDialogBox.OKButtonClick(Sender: TObject);begin
  ModalResult := mrOK;
end;procedure TMyDialogBox.CancelButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;end;This code brings up the modal dialog from Form1 when a button is clicked.  It causes a Beep if the OK button is clicked.procedure TForm1.Button1Click(Sender: TObject);begin
  if MyDialogBox1.ShowModal = mrOK then
    Beep;end;
参照以上代码在delphi帮助里有！