Delphi 信息框

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;

                 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)