输入输出inputBox()函数MessageBox()ShowMessage
对话框是Windows操作系统中程序与用户沟通的一种常见的交互方式,对话框可以向用户提供当前程序的运行状况,也可以接受用户输入的信息,在 Delphi中,对话框函数大体上可以分为两种——输入对话框函数和输出对话框函数。
输入对话框函数用于接收用户在程序运行过程中输入的信息,其中包括 InputBox(),InputQuery()函数。
输出对话框函数则用于显示一个对话框窗体和向用户报告当前程序的运行状态等信息,它包括ShowMessage()函数、 MessageDlg()函数。
下面就对各个函数分别加以介绍。
输入:
InputBox()函数
对话框函数中的InputBox()函数用于在程序运行的过程中显示一个包含一个字符串和按钮信息的输入对话框。
它的语法结构如下所示:
function InputBox(const ACaption, APrompt, ADefault: string): string;
下面以一个示例来说明InputBox()函数的用法:
procedure TForm1.Button1Click(Sender: TObject); var str : string; begin str:=inputbox(‘南山古桃的对话框‘,‘请输入要平方的数据‘,‘0‘); edit1.Text:=‘南山古桃 得到的平方是:‘ + floattostr(strtofloat(str)*strtofloat(str)); end;
输出:
1.ShowMessage()函数--最常用,最简单
对话框函数中的ShowMessage()函数用于在程序运行的过程中显示包含一个字符串信息的对话框。
它的语法结构如下所示:
ShowMessage(const Msg:string);
如:ShowMessage(‘南山古桃 问候您!‘);
2.MessageBox()函数--正式程序时常用此函数输出(个人观点)
例:
--Application.MessageBox(‘MessageBox‘,‘警告‘,MB_ICONWARNING+MB_YesNo); --MessageBox(Form1.Handle,‘MessageBox‘,‘提示‘,MB_ICONINFORMATION+MB_OkCancel); --MessageBox(Form1.Handle,‘MessageBox‘,‘提示‘,MB_ICONINFORMATION+MB_OkCancel+MB_DEFBUTTON2); -- if MessageBox(Form1.Handle,‘MessageBox‘,‘提示‘,MB_ICONINFORMATION+MB_OkCancel)= idOk then begin ShowMessage(‘Ok‘); end; //********************************************************************************************************************
在Delphi中输入MessageBox按下F1,会出来帮助,可以查阅具体参数
int MessageBox(
HWND hWnd, // handle of owner window
LPCTSTR lpText, // address of text in
message box
LPCTSTR lpCaption, // address of title of
message box
UINT uType // style of message box
);
Specifies a set of bit flags that determine the contents and behavior of the
dialog box. This parameter can be a combination of flags from the following
groups of flags.
Specify one of the following flags to indicate the buttons contained in the
message box:
Flag Meaning
MB_ABORTRETRYIGNORE The message box contains three push
buttons: Abort, Retry, and Ignore.
MB_OK The message box contains one push button: OK. This is
the default.
MB_OKCANCEL The message box contains two push buttons: OK and
Cancel.
MB_RETRYCANCEL The message box contains two push buttons:
Retry and Cancel.
MB_YESNO The message box contains two push buttons: Yes and
No.
MB_YESNOCANCEL The message box contains three push buttons:
Yes, No, and Cancel.
Specify one of the following flags to display an icon in the message box:
Flag Meaning
MB_ICONEXCLAMATION,
MB_ICONWARNING
An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
An icon consisting of a lowercase letter i in a circle
appears in the message box.
MB_ICONQUESTION A question-mark icon appears in the message
box.
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
A stop-sign icon appears in the message box.
Specify one of the following flags to indicate the default button:
Flag Meaning
MB_DEFBUTTON1 The first button is the default button.
MB_DEFBUTTON1 is the default unless MB_DEFBUTTON2, MB_DEFBUTTON3, or
MB_DEFBUTTON4 is specified.
MB_DEFBUTTON2 The second button is the default button.
MB_DEFBUTTON3 The third button is the default button.
MB_DEFBUTTON4 The fourth button is the default button.
Return Values
The return value is zero if there is not enough memory to create the message
box.
If the function succeeds, the return value is one of the following menu-item
values returned by the dialog box:
Value Meaning
IDABORT Abort button was selected.
IDCANCEL Cancel button was selected.
IDIGNORE Ignore button was selected.
IDNO No button was selected.
IDOK OK button was selected.
IDRETRY Retry button was selected.
IDYES Yes button was selected.
If a message box has a Cancel button, the function returns the IDCANCEL value
if either the ESC key is pressed or the Cancel button is selected. If the
message box has no Cancel button, pressing ESC has no effect.
//********************************************************************************************************************
3.MessageDlg()函数--南山古桃 不知道为什么出不来中文?
对话框函数中的MessageDlg()函数用于在程序运行的过程中显示包含一个字符串、位图和按钮信息的对话框。
它的语法结构如下所示:
function MessageDlg(const Msg: string; AType: TMsgDlgType; AButtons:
TMsgDlgButtons; HelpCtx: Longint): Word;
下面以一个示例来说明MessageDlg()函数的用法:
procedure TForm1.Button3Click(Sender: TObject);
begin
//显示一个问号和Yes、No两个按钮的输出对话框
if MessageDlg(‘你想退出本程序吗?‘,
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
//如果按下“yes”就显示一个感叹号的输出对话框
MessageDlg(‘按下OK就退出‘, mtInformation,
[mbOk], 0);
Close;
end;
end;
在本例中MessageDlg()函数中使用到的参数Atype是TmsgDlgType类型,它的值主要有以下几种:mtWarning、 mtError、mtInformation、mtConfirmation,、mtCustom;而参数Abuttons是 TmsgDlgButtons类型,它的值主要有以下几种:mbYes、mbNo、 mbOK,、mbCancel、mbAbort、mbRetry、mbIgnore、mbAll、mbHelp。大家可以参照上面的代码略作修改来体会一下。
messagebox(handle,pchar(‘无效的产品信息‘+#13#10+‘请不要更改注册信息‘),pchar(‘错误‘),mb_ok+mb_iconerror+mb_applmodal);
4.MessageDlgPos
MessageDlgPos(‘控制位置100,200‘,mtWarning,[mbYes,mbNO],0,
100, 200);
MessageDlgPos(‘控制位置 屏幕中央‘,mtWarning,[mbYes,mbNO],0, -1,
-1);