1.窗体

在Delphi的组件面板中一共有500多个组件。我们从窗体开始逐步介绍常用组件。

用户界面是应用系统中直接面对用户的窗体，包括：主窗体、子窗体、弹出对话框窗体等。

1.1 Form组件

1.1.1 Form组件的主要属性

• BorderIcons

用来设置窗体标题栏上的图标，取值如下：

• BorderStyle

用来设置窗体的外观和边框，取值如下：

• Name

对象的名称，用来唯一标识对象。代码中使用该名称调用对象的属性和方法。

• Caption

用来指定窗体标题栏中的文字，可以为空，为空时，与Name属性值相同。

• Font

用来设置窗体中文字的字体、颜色和字号等。

• FormStyle

用来设置窗体的类型。在Windows中应用程序可以分为三类：多文档界面应用程序（MDI）、单文档应用程序（SDI）、对话框应用程序。该属性的取值如下：

• Icon

用来指定标题栏中显示的图标

• Position

用来指定窗体的大小和显示的位置，取值如下：

• WindowsState

用来描述窗体显示的状态，取值如下：

1.1.2 Form的常用事件

• 建立窗体时的事件

• 关闭窗体时引发的事件

• 键盘引发的窗体事件

• 鼠标引发的窗体事件

1.1.3 窗体的方法

窗体的常用方法：

1.1.4 窗体的创建

创建应用程序时，Delphi会自动创建新的窗体，它是应用程序的主窗体。应用程序除了主窗体外，还可以拥有子窗体、对话框等，所以需要在程序设计时创建和显示新的窗体。创建窗体的方法包括：静态创建和动态创建。

• 静态创建

创建窗体是在工程编辑设计时创建新窗体；

• 动态创建

是在程序执行过程中通过代码生成窗体；

1.静态创建新窗体

示例：首先，创建应用程序，自动生成Form1，然后选择File|New|Form菜单，生成Form2，在Form1中添加两个按钮，分别为“打开窗体2”、“退出”，在Form2中添加一个按钮“关闭”，如下图：

编写“退出”按钮的事件：

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

编写"打开窗体2"的事件：

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show();
end;

编写窗体2上的”关闭“按钮的事件：

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

此时运行程序，会出现如下图所示的提示信息：

该提示信息的含义是在窗体1上引用了窗体2，询问是否添加引用。选择Yes，Delphi自动将窗体2的引用添加到窗体1的代码中，也可以选择No，然后在Unit1.pas中添加引用代码：

implementation

{$R *.dfm}

uses Unit2;

2.动态创建新窗体

示例：首先，创建应用程序，自动生成Form1，然后选择File|New|Form菜单，生成Form2，在Form1中添加两个按钮，分别为“打开窗体2”、“退出”，在Form2中添加一个按钮“关闭”，图与上例相同。

由于Delphi默认情况下会在执行程序时自动创建窗体，所以需要设置，选择Project|Options，单击Forms，在对话框右侧会出现Auto-create forms列表和Available forms列表，将Form2移动到Available forms列表，则Form2不会在内存中自动创建。

在Unit1.pas中 implementation 语句下面添加：

uses unit2;

编写“退出”按钮的事件：

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

编写"打开窗体2"的事件：

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2 := TForm2.Create(nil);
  form2.Show;
end;

编写窗体2上的”关闭“按钮的事件：

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

编写窗体2的关闭事件：

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Release;
end;

由于窗体2是动态创建的，所以在窗体2关闭时要执行销毁动作，以便释放窗体所占用的内存。

程序运行效果如下图：

1.2 弹出对话框

对话框是与用户交互的最佳途径之一，在Delphi中提供了多种对话框：

• 输出对话框
• ShowMessage过程
• ShowMessageFmt过程
• MessageDlg函数
• MessageDlgPos函数
• CreateMessageDialog函数
• 输入对话框
• InputBox函数
• InputQuery函数

1.ShowMessage过程

该过程显示一个简单的对话框，语法格式：

ShowMessage(<信息内容>);

该过程显示的对话框以应用程序的可执行文件名为标题，对话框中包含一个OK按钮，对话框的高度和宽度随信息内容不同而变化；信息内容是对话框中显示的文本，在信息内容中可以使用硬回车（#13）来使文本换行。

2.ShowMessageFmt过程

语法格式：

ShowMessageFmt(<信息内容>, <参数数组>);

如：

ShowMessageFmt('您的%s成绩是%d分。', ['外语', 98]);

3.MessageDlg函数

执行该函数，可以在屏幕的中心显示信息对话框，语法格式：

<变量> := MessageDlg(<信息内容>, <类型>, <按钮数组>, HelpCtx);

类型取值：

按钮取值：

也可以使用按钮常量，按钮常量的取值：

HelpCtx指定当用户单击Help按钮或按下F1时，显示的帮助主题。

该函数根据用户单击的按钮返回相应的值。

4.MessageDlgPos函数

可以在屏幕指定位置显示对话框，语法格式：

<变量> := MessageDlg(<信息内容>, <类型>, <按钮数组>, HelpCtx, x, y);

x, y 表示显示的坐标位置。

5.CreateMessageDialog函数

该函数用于创建一个信息框窗体，语法格式：

<变量> := CreateMessageDialog(<信息内容>, <类型>, <按钮数组>);

该函数返回一个TForm类型的对话框，而且并不直接显示出来，在需要的时候，可以使用窗体的ShowModal方法弹出。

6.InputBox函数

显示一个接收用户输入的对话框，并返回用户输入的信息。语法格式：

<变量> := InputBox(<对话框标题>, <信息内容>, <默认内容>);

7.InputQuery函数

语法格式：

<变量> := InputBox(<对话框标题>, <信息内容>, <字符串变量>);

在该函数中，默认内容存在字符串变量中，当用户单击OK按钮，输入框中的文本将赋值到字符串变量，并返回True，若用户单击Cancel按钮，字符串变量中内容保持不变，并返回False。