Delphi 编译，没有错误，但之后什么也没发生

tquggr8v 于 2022-11-29 发布在其他

关注(0)|答案(2)|浏览(157)

我做了一个有多个窗体的程序。当我运行程序时，它编译了，但什么也没发生，我留在IDE中。
我想这是因为它不知道首先显示哪个表单。我已经检查并使我想首先显示的表单可见= true，但这并没有改变任何事情。
下面是项目部件上的代码：

program Project1
uses
forms,
SQLUnit in 'SQLUnit.pas',
Entrance in 'Entrance.pas',
Addpop in 'Addpop.pas',
Home in 'Home.pas',
Quiz2 in 'Quiz2.pas',
Teacher in 'Teacher.pas',
Userclass in 'Userclass.pas',
Stat in 'Stat.pas',
Typesofclasses in 'Typesofclasses.pas',
TimeDisplay in 'TimeDisplay.pas',
Quiz1 in 'Quiz1.pas',
Timetableclass in 'Timetableclass.pas';

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Run;
end.

我认为这是最相关的，但我不确定。我已经查过了，有人有一个奇怪的类似的问题，并说他们解决了它与自动创建。我试图找到这个在我的程序，但不能找到我会设置它或它在哪里

delphi

来源：https://stackoverflow.com/questions/48890890/delphi-compiling-no-error-but-then-nothing-happens

2条答案

按热度按时间

ie3xauqp1#

项目文件至少需要一个Application.CreateForm作为应用程序中的主窗体。

program Project1
uses
forms,
SQLUnit in 'SQLUnit.pas',
Entrance in 'Entrance.pas',
Addpop in 'Addpop.pas',
Home in 'Home.pas',
Quiz2 in 'Quiz2.pas',
Teacher in 'Teacher.pas',
Userclass in 'Userclass.pas',
Stat in 'Stat.pas',
Typesofclasses in 'Typesofclasses.pas',
TimeDisplay in 'TimeDisplay.pas',
Quiz1 in 'Quiz1.pas',
Timetableclass in 'Timetableclass.pas';

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

您可以只输入缺少的行或使用Project|选项|窗体来选择它。