귀여운 CreateMessageDialog

unit Unit1;



interface



uses

  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('  ', mtInformation, [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.