修改delphi 窗体名称

默认的情况下,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);


保存各个文件并编译!本操作宜尽早进行!
上一篇:Delphi DEV 排序 转 RO 排序


下一篇:在Delphi中高效执行JS代码