可爱的 CreateMessageDialog

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}var  MsgInfo, MsgErr: TForm;procedure TForm1.FormCreate(Sender: TObject);begin  MsgErr := CreateMessageDialog('错误', mtError, [mbOK]);  MsgInfo := CreateMessageDialog('提示', mtInfor��Ժ,���mation, [mbYes, mbNo], mbYes);end;procedure TForm1.Button1Click(Sender: TObject);begin  MsgErr.ShowModal;end;procedure TForm1.Button2Click(Sender: TObject);begin  MsgInfo.ShowModal;end;procedure TForm1.Button3Click(Sender: TObject);begin  case MsgInfo.ShowModal of    IDYES: Text := 'Yes';    IDNO : Text := 'No';  else    Text := 'Form1';  end;end;end.