Delphi快速入门（六）

1.5 使用Delphi的工程管理、设计工具　

Delphi 2.0是完备的工程设计系统，除提供了大量的可视化编程部件和简单方便的设计方法外，还备有功能强大的工程管理、窗口设计工具。　

1.5.1 创建多窗体工程项目　

绝大多数的应用程序都用到不只一个窗口，Delphi允许用户创建多文档界面(MDI)应用程序。应用自动创建窗体、窗体样板、对话框专家、应用专家等，可以使得创建应用程序更为方便快捷，而且可重复利用，大大地降低了工作量。　

1.5.1.1 创建一个含有About框的例程　

作为例子，我们先创建一个含主窗体和简单的About框的应用程序：

在Delphi中创建一个新工程，并为空窗口增加一个Button部件。我们把它作为主窗体，目的是当按动按钮部件时，调出About窗口。下面我们直接进行About窗口的创制。

选用主菜单的File|New项，在New页中，选用Form样板，Delphi会自动创建一个空窗体Form2。您可以在其上进行About框的设计，例如加入标签以显示各种信息、加入图片帮助说明等。将Form2的BorderStyle属性设置为bsDialog，则窗口成为运行时不能改变大小的对话框。

下面编程实现主窗体对About框的显示控制。很可能在设计时，两个窗体出现重叠，Form1被About遮住。用Shift F12产生View Form对话框，可以选择窗口的名字，调出所需的窗体Form1，双击其上的按钮部件，在事件处理过程加入以下的程序：　

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;　

由于Form1窗体调用About窗体，所以必须在Form1的库单元程序中对引用About进行说明。在Unit1的Uses后面加入About的库单元名Unit2。运行程序，在主窗体上按动按钮，可以出现About框。在框外单击鼠标，会回到主窗体中。

在About窗体中加入一个按钮，并将按钮的ModalResult属性设置为mrOK，同时将按钮的标签的Caption改为OK。这样一个有模式的About框已经建成了。将窗体Form1中Button1的OnClick处理过程的代码改变如下：　

Form2.ShowModal; 　

再运行程序，除了与上述功能相同显示About对话框外，该程序只有当用户按动About框的按钮或被About窗控制图标关闭窗口后，才会回到主窗体中，而不能与第一个窗体发生交互行为。这就是方法Show和ShowModal的主要不同之处。　

1.5.1.2 指定自动创建窗体　

上面我们简单地生成了一个含About框的双窗体应用程序，运行时，应用程序启动时将自动创建第二个窗体。窗体保持隐蔽状态，但仍然占用Windows的资源。在大型应用程序中，有时不希望在应用程序加载时自动创建所有窗体。Delphi可以指定哪些窗体被自动创建。

选用Project|Options，Delphi显示Project options对话框。如果Forms不是当前页，按动下标签使之可见。如图1.12所示：

图示为Delphi装载的