修改delphi 窗体名称
2021/8/1 6:07:42
本文主要是介绍修改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 窗体名称的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-05-15鸿蒙生态设备数量超8亿台
- 2024-05-13TiDB + ES:转转业财系统亿级数据存储优化实践
- 2024-05-09“2024鸿蒙零基础快速实战-仿抖音App开发(ArkTS版)”实战课程已上线
- 2024-05-09聊聊如何通过arthas-tunnel-server来远程管理所有需要arthas监控的应用
- 2024-05-09log4j2这么配就对了
- 2024-05-09nginx修改Content-Type
- 2024-05-09Redis多数据源,看这篇就够了
- 2024-05-09Google Chrome驱动程序 124.0.6367.62(正式版本)去哪下载?
- 2024-05-09有没有大佬知道这种数据应该怎么抓取呀?
- 2024-05-09这种运行结果里的10.100000001,怎么能最快改成10.1?