Delphi PPT第8章 对话框的使用和设计.ppt

对话框的使用和设计
第8章
1
8.1 对话框概述
8.2 标准对话框
8.3 通用对话框组件
8.4 对话框的设计
目 录
2
8.1 对话框概述
对话框是Windows应用程序同用户进行对话的。应用程序可以通过对话框向用户提供程序运行的状态信息，也可以通过对话框接受用户输入的数据。
对话框可分为两种形式：模态对话框和非模态对话框。
模态对话框：指在对话框被关闭之前，用户无法在该对话框和应用程序的其他窗口之间进行切换，就是说用户必须对该对话框作出选择并加以确认，程序才能继续运行。
非模态对话框：指该对话框被关闭之前，用户可以在该对话框和应用程序的其他窗口进行切换。
3
8.2 标准对话框
输入框，指带有一个用于简单字符串信息输入的编辑框、一个OK按钮和一个cancel按钮的简单对话框。
1.InputBox函数
声明格式：Function InputBox(const Acaption,Aprompt,Adefault:String):String;
调用该函数，用三个字符串类型的常量作为输入参数，其中Acaption为对话框标题，Aprompt为提示信息，Adefault为默认输入字符串。函数返回字符串。
8.2.1 输入框
4
Function InputBox(const Acaption,Aprompt,Adefault:String):String;
InputBox('Login','Input your name','guest');
5
2.InputQuery函数
声明格式：
Function InputQuery(const Acaption,Aprompt:String;
var Value:String):Boolean;

调用该函数，用两个字符串类型的常量、一个字符串类型的变量作为输入参数，其中Acaption为对话框标题，Aprompt为提示信息，字符串变量值为显示在编辑框内的缺省输入信息，函数返回布尔值。
6
Function InputQuery(const Acaption,Aprompt:String;
var Value:String):Boolean;

var
input:string;
begin
input:='default';
inputQuery('Login','Input user name:',input);
end;
7
消息框，是指用于显示提示信息的简单对话框，无需用户输入任何信息，只需通过消息框的按钮加以确认或取消。Delphi提供了若干过程或函数来产生消息框。
1.showmessage过程
声明格式：
procedure showmessage(const msg:String);
调用该过程，只用一个字符串类型的常量作参数，即显示的提示信息。
8.2.2 消息框
8
procedure showmessage(const msg:String);
showmessage('欢迎学****使用Delphi语言！');
9
2.showmessagePos过程
声明格式：
procedure showmessagepos(const msg:string; x,y:integer)；
调用该过程，用一个字符串类型的常量，两个整数类型常量作为参数，字符串类型的常量为显示的提示信息，两个整数类型常量确定消息框左上角的坐标。该过程和showmessage过程的作用完全相同，区别仅在于由x,y确定消息框的位置。
例：
showmessagepos('欢迎学****使用Delphi语言！',100,100);
10