DELPHI 的 Application 是什么时候被创建的?

chenzhuo 2007-03-23 02:29:37

怎么找不到如Application := TApplication.Create(nil);的代码?难道是编译器自己创建的?

...全文

151 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

chenzhuo 2007-03-23

打赏
举报

谢谢!!!终于找到这斯了!

dctony 2007-03-23

打赏
举报

Controls单元的initialization部分有个InitControls函数。
有InitControls函数中创建了应用程序的几个对象：
Mouse := TMouse.Create;
Screen := TScreen.Create(nil);
Application := TApplication.Create(nil);
在Forms单元的开头有引用到Controls单元，所以只要你的程序用到TForm，就会把Controls引用到你的程序中来，就会自动执行Controls单元的initialization部分。

delphi的ExcelApplication控件excel操作

DELPHI入门教程_10分努力_半小时内学会(完整版)

演示如何实现启动画面

TApplication是用于Delphi应用程序的类型，该类在单元forms中声明。TApplication是Delphi构造 Windows应用程序所需的类型，其方法和属性集中包括了 Windows操作系统中创建、运行和销毁应用程序等既定的基本操作和属性，因此在用Delphi编写 Windows应用程序时简化了用户和Windows环境之间的借口。 TApplication封装了以下功能：

procedure TForm1.CreatForm(const FormClassName, FormName: string); begin if FindComponent(FormName)=nil then if GetClass(FormClassName) with TForm(TComponentClass(FindClass(FormClassName))