有谁知道CreateMessageDialog函数的具体用法？和其特点？

Question

有谁知道CreateMessageDialog函数的具体用法？和其特点？定义我是知道的。

Answer 1

当某一种对话框可能会在工程中出现多次时，就可以使用CreateMessageDialog函数。
function CreateMessageDialog(const Msg:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons):TForm;
参数同MessageDlg函数。
例：
procedure TForm1.Button1Click(Sender: TObject);
var
  Tmp : TForm;
  TmpResult : TModalResult;
begin
  Tmp := CreateMessageDialog('这是建立的消息框',mtInformation,mbYesNoCancel);
  TmpResult := Tmp.ShowModal;
  case TmpResult of
     mrCancel : EditResult.Text := 'Cancel';
     mrYes : EditResult.Text := 'Yes';
     mrNo : EditResult.Text := 'No';
  end;
  Tmp.Free;
end;