不灭的焱

加密类型:SHA/AES/RSA下载Go
复合类型:切片(slice)、映射(map)、指针(pointer)、函数(function)、通道(channel)、接口(interface)、数组(array)、结构体(struct) Go类型+零值nil
引用类型:切片(slice)、映射(map)、指针(pointer)、函数(function)、通道(channel) Go引用

作者:AlbertWen  添加时间:2020-05-05 22:46:08  修改时间:2025-12-04 16:52:39  分类:20.C#/Ruby/Delphi  编辑

方式一:设置项目的主窗体

Project -> Options -> Application -> Forms 

方式二:直接改项目源文件

Project -> View Source

program Project_database;

uses
  Vcl.Forms,
  Database in 'Database.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

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

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

把 上述代码中的 创建 Form1、Form2 的代码顺序调整一下,即把要第一个启动的窗体排在最上面:

Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;

 

 

参考:

Delphi中如何改变Form运行的顺序?