Delphi编译，没有错误，但没有任何反应

Question

我制作了一个包含多种形式的程序。当我运行该程序时，它会编译，但是我没有任何事情发生在IDE中。

我认为这是因为它不知道首先显示哪种形式。我已经检查并制作了我想要首先显示的那个可见=但是这并没有改变任何东西。

这是项目部分的代码：

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.

我认为这是最相关的，但我不确定。我查了一下，有人有一个类似的问题，并说他们用自动创建解决了它。我试图在我的程序中找到这个，但找不到我要设置的地方或它在哪里

Answer 1

项目文件至少需要一个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 |选项|表格来选择它。