在Mainform之前添加表单

Question

我想编一个小型广告表单，让我可以轻松地将其实施到我的其他任何项目中。 广告表单应显示在我的真实项目/应用程序启动之前。

有些要求必须得到满足：

1. 易于实施任何项目，没有任何麻烦 - 添加表单/单位和几乎所有负责剩下的照顾。
2. 我的应用程序的MainForm的（Application.MainForm）应在运行时后，我的广告形式来创建已成功关闭（或要求已得到满足）
3. 只增加1个单位/形式应该是落实不够

我迄今取得的进展是：

1. 我创造出隐藏在空的主窗体（Application.MainForm）
2. 然后，我创建一个MODALFORM，这是实际的广告表格 - 右侧modalresult，免费我的我们lcomescreen并进入“主应用程序”
3. 我需要从我的项目中删除所有自动创建表单
4. 我打开一些参数我的项目的源文件中的程序，包括应用程序的主窗口（源）
5. 不幸的是我要补充各单位/表格的项目，而不只是一个

这是我到目前为止（递归路径问题？）：

项目来源：

program MyTestProgram; 

uses 
    Vcl.Forms, 
    Windows, 
    uMainWindow in 'uMainWindow.pas' {Form1}, 
    uEmptyForm in '..\AdProject\uEmptyForm.pas' {AdEmptyMainForm}, 
    uWelcomeScreen in '..\AdProject\uWelcomeScreen.pas' {WelcomeScreen}; // shouldn't be here 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.Run; 
    LoadAdWindow('Title of my app', uMainWindow.TForm1, uMainWindow.Form1); 
end. 

EmptyForm单位：

unit uEmptyForm; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs; 

type 
    TAdEmptyMainForm = class(TForm) 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    AdEmptyMainForm: TAdEmptyMainForm; 

    procedure LoadAdWindow (Appname: string; InstanceClass: TComponentClass; var Reference); 

implementation 

{$R *.dfm} 

    uses 
    uWelcomeScreen; // Has to be added to the project, otherwise it doesn't detect the unit in the same path as this unit 

    procedure LoadAdWindow (Appname: string; InstanceClass: TComponentClass; var Reference); 
    begin 
    Application.MainFormOnTaskbar := True; 
    Application.ShowMainForm  := False; 
    Application.Title    := Appname; 
    Application.CreateForm(TAdEmptyMainForm, AdEmptyMainForm); 
    with uWelcomeScreen.TWelcomeScreen.Create(Application.MainForm) do 
    begin 
     Caption := Appname; 
     if ShowModal <> 1337 then ExitProcess(0); 
     Free; 
    end; 
    Application.CreateForm(InstanceClass, Reference); 
    end; 

end. 

欢迎屏幕成功后，应用程序关闭。 这是否正确吗？ 任何帮助表示赞赏！

Answer 1

Application.MainForm是通过Application.CreateForm()对TForm派生类的第一次调用而建立的。 Application.Run()如果未分配Application.MainForm，则立即退出。

要做你正在尝试的，你应该做更像下面的代替。您不需要空白的MainForm，只需在创建真正的MainForm之前创建并显示广告窗口即可。只有主源需要的项目进行更改：

program MyTestProgram; 

uses 
    Vcl.Forms, 
    Windows, 
    uMainWindow in 'uMainWindow.pas' {Form1}, 
    uWelcomeScreen in '..\AdProject\uWelcomeScreen.pas' {WelcomeScreen}; 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.Title := 'Title of my app'; 

    with TWelcomeScreen.Create(Application) do 
    try 
    Caption := Application.Title; 
    if ShowModal <> 1337 then 
     Exit; 
    finally 
    Free; 
    end; 

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

Answer 2

您可以轻松创建和显示广告的形式和后创建和显示的主要形式，是这样的：

var 
FAdFrm : TAdFrm; 

begin 
FAdFrm := TAdFrm.Create(nil); 
if FAdFrm.ShowModal = mrOK then 
    begin 
    FAdFrm.Free; 

    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TMainFrm, MainFrm); 

    Application.Run; 
    end 
else 
    FAdFrm.Free; 

要小心，你的项目的主要形式是与Application.CreateForm创建的第一种形式方法

Answer 3

另一种方法是创建MainForm中的创建活动的广告形式。我在我自己的项目上这样做。

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    AdvForm := TAdvForm.Create(Self); 
    Try 
    AdvForm.ShowModal; 
    finally 
    AdvForm.Free; 
    end; 
end;