delphi的入口主函数,求助

mynameisking 2004-12-27 09:08:53
C做出来的程序主入口函数是main(),不知道delphi做出的程序的入口函数我怎么去处理(不知道它在那)
,程序一开始就 Application.Initialize;
Application.CreateForm(TForm1, Form1);,

谁知道告诉我一下
...全文
251 点赞 收藏 13
写回复
13 条回复
S.F. 2004年12月28日
过来踩一脚,留个印
回复 点赞
mynameisking 2004年12月27日
我想除了工程文件之外,肯定还有一个文件比工程文件还在前面的main()文件
回复 点赞
mynameisking 2004年12月27日
...我都无语...
回复 点赞
symk0014 2004年12月27日
...无语...
回复 点赞
g961681 2004年12月27日
不是,就是dpr工程文件里的Begin...End。
回复 点赞
g961681 2004年12月27日
Application.Run
回复 点赞
myling 2004年12月27日
web700(*FS*的小狗腿子)

呵呵,恰好看到

又恰好delphi开着

当然快了
回复 点赞
myling 2004年12月27日
呵呵

个人也觉得delphi不存在入口函数的概念

只是dpr代码的顺序执行

就是从begin开始的
回复 点赞
Blakhawk 2004年12月27日
你这小子学C太多还是怎么回事啊。
工程问题就是入口。
回复 点赞
web700 2004年12月27日
myling(AD) 速度好快..
回复 点赞
web700 2004年12月27日
procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
end;
finally
FRunning := False;
end;
end;
回复 点赞
myling 2004年12月27日
procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;//============================就是这句啦
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
end;
finally
FRunning := False;
end;
end;
回复 点赞
mynameisking 2004年12月27日
谁能帮我解读一下“Application.Run”,为什么我一运行它,主窗体就show出来了?
回复 点赞
发动态
发帖子
语言基础/算法/系统设计
创建于2007-08-02

3418

社区成员

3.3w+

社区内容

Delphi 语言基础/算法/系统设计
社区公告
暂无公告