第5部分 编译文件（第12页)

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal;

end;

end.

Unti1创建一个命名为Tform1的类（从Tform派生）和这个类的一个实例，Form1.Tform1包含一个buttonButton1按钮, TButton类的一个实例和一个命名为Button1Click的过程，当用户点击Button1时被调用。Button1Click隐藏Form1显示Form2（通过调用Form2.ShowModal）。

Form2在Unit2中是被定义的

unit Unit2;

interface

uses SysUtils, Types, Classes, Graphics, Controls, Forms, Dialogs;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!