这个程序调用了一联串的名为Application的对象,她是被定义在forms Unit单元的Tapplication类的一个实例。(每一个工程都自动得产生Application 对象。)两个命名为Createform的调用自Tapplication的方法。第一个调用CreateForm创建Form1,是一个定义在Unit1中的Tform1类的一个实例。第二个调用CreateForm,创建Form2,定义在Unit2中的Tfrom2类的一个实例。
10
Unit1 looks like this:
Unit1看起来像下面一样:
unit Unit1;
interface
uses SysUtils, Types, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




