3418
社区成员
3.3w+
社区内容
- 主页
delphi的入口主函数,求助
C做出来的程序主入口函数是main(),不知道delphi做出的程序的入口函数我怎么去处理(不知道它在那)
,程序一开始就 Application.Initialize;
Application.CreateForm(TForm1, Form1);,
谁知道告诉我一下
,程序一开始就 Application.Initialize;
Application.CreateForm(TForm1, Form1);,
谁知道告诉我一下
...全文
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开着
当然快了
呵呵，恰好看到
又恰好delphi开着
当然快了
myling 2004年12月27日
呵呵
个人也觉得delphi不存在入口函数的概念
只是dpr代码的顺序执行
就是从begin开始的
个人也觉得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;
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;
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出来了?