谁能告诉我modalresult属性的用法，请尽量详细些，有例子最好。

Question

用于返回模太对话框的值。
Delphi的帮助:
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;

Answer 1

对于模态对话框，ModalResult一旦被赋值，就会自动关闭。通过这个属性可以确定对话框关闭的方式。