Delphi 信息框:
       1. showmessage   。。。你懂得。。。
 
       2. ShowMessagePos(const Msg: string; X, Y: Integer) : 指定位置显示对话框
  ShowmessagePos(‘dialog box’,100,100)
 
       3. MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;www.2cto.com
                 MessageDlg('hint',mtInformation,[mbOK],0);
            TMsgDlgType : mtwaring……  TMsgDlgButtons : mbok…….
 
       4. MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word; 指定位置显示对话框
               MessageDlgPos('information',mtInformation,[mbOK],0,100,100);
 
      5. MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
               MessageBox(0,'information','title',MB_YESNOCANCEL);
 
     6. InputBox(const ACaption, APrompt, ADefault: string): string;
InputBox('Title','Information','');
 
     7. InputQuery(const ACaption, APrompt: string; var Value: string): Boolean
               if InputQuery('title','information',s) then
                showmessage(s)