默认的情况下,IDE帮我们建立的窗体类都如下:
type TForm1 = class(TForm) ScrollBox1: TScrollBox; GroupBox1: TGroupBox; ScrollBox2: TScrollBox; RadioGroup1: TRadioGroup; private { Private declarations } public { Public declarations } end; var Form1: TForm1;
在项目程序里面一般都有类似下面的引用:
program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
当项目窗体稍多的时候,会出现重复的现象,而且都是类名都是TForm1 ,也不利于我们区分各个窗体.所以需要手动改一下:
1. 新建窗体的时候 将单元名改为有意义的特定的名称:
unit main;
并将文件保存为main.pas.
2. 将type 和var部分改为:
type TMainForm = class(TForm) Panel1: TPanel; GroupBox1: TGroupBox; Button1: TButton; Button3: TButton; GroupBox3: TGroupBox; Button5: TButton; Panel2: TPanel; scb_app: TScrollBox; Label1: TLabel; Button2: TButton; Button4: TButton; Button6: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; //注意!!! 此处一定不要和unit名字重复 var MainForm: TMainForm;3 3. 使用记事本或者UE打开窗体对应的 dfm文件,本例对应main.dfm,将第一行修改为: object MainForm: TMainForm 4. 使用记事本或者UE打开项目程序,分别进行以下修改: //引用部分 uses main in 'main.pas' {MainForm}, //如果需要启动时候初始化窗体,则还需要修改下面: Application.CreateForm(TMainForm, MainForm); 保存各个文件并编译!本操作宜尽早进行!