unit1.pas

利用Delphi编写的几个对话框程序

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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

      var
  DlgResult:variant;

begin
    DlgResult:=MessageDlg('显示信息   信息类型',mtInformation,[mbYes],0);

    ShowMessage(DlgResult);
end;


procedure TForm1.Button2Click(Sender: TObject);
 var
   DlgResult:variant;

begin
 DlgResult:=MessageDlgpos('messageDlgpos的对话框'+#13+'确认类型'+#13+'mbyes按钮'+
 #13+'坐标(500,500'+'mbyes按钮',mtConfirmation,[mbYes],0,450,200);
 ShowMessage('DlgResult');
end;


procedure TForm1.Button3Click(Sender: TObject);

  var
  createDlg:TForm;

begin

 createDlg:=CreateMessageDialog('哈哈哈哈！下课请你吃饭'+#13+'警告类型'
 +#13+'mbYes,mbNO按钮',mtInformation, [mbYes,mbNO] );
 if (MessageDlg('你认为芦洋是好人么？',mtConfirmation,[mbYES,mbNo],0)=mryes)then
 createDlg.ShowModal
 else
 ShowMessage('我也相信这点'+#13+'你和我也有同感，有时候发现他就是一坏蛋');

end;

end.