如果以非模态方式显示，delphi 初始表单不会触发计时器事件

Question

我编写了一个闪入、显示一段时间然后淡出的启动表单。淡入淡出是用一个定时器来实现的，它也关闭表单。它工作正常。

我以模态方式显示表单，但我怀疑主表单直到启动表单关闭后才开始构建和显示。

然后我想，如果我以非模态方式显示表单并使用 fsStayOnTop（即 SplashForm.Show 而不是 SplashForm.ShowModal），那么一旦显示启动表单，主表单就可以在启动表单后面初始化，这意味着启动画面关闭时，应用程序已准备就绪。

但我发现计时器事件不再触发。 TApplication.OnIdle 事件也没有。什么给了？

Answer 1

你说这是一个闪屏。它是否在程序启动期间显示，在您点击 DPR 中的Application.Run; 行之前？如果是这样，那么 TApplication 事件循环还没有开始，所以你不会得到任何 OnIdle 事件。

Answer 2

Fade 不适用于标准计时器，因为应用程序循环在您调用 Application.Run（如 Mason 所说）之前不会起作用，并且计时器是基于消息的计时器 API 机制的包装器。

您不能使用基于线程的计时器，因为它需要 Synchronize 才能与 UI 一起工作，而 Synchronize 是基于消息的机制。

但是您可以浪费淡入/淡出所需的时间，因此您可以获得一个精美的应用程序启动，如果您正在寻找这个，我认为您并不担心浪费一点时间。我可以用（工作和测试的）代码示例更好地解释，所以这对你有用：

USplashForm.pas：

//...
interface
//...
type
  TSplashForm = class(TForm)
    //...
  public
    procedure FadeIn;
    procedure FadeOut;
    //...
  end;

//...
implementation
//...
procedure TSplashForm.FadeIn;
begin
  AlphaBlend := True;
  AlphaBlendValue := 0;
  Show;
  Update;
  repeat
    AlphaBlendValue := AlphaBlendValue + 5;
    Update;
    Sleep(20);
  until AlphaBlendValue >= 255;
end;

procedure TSplashForm.FadeOut;
begin
  repeat
    AlphaBlendValue := AlphaBlendValue - 5;
    Update;
    Sleep(20);
  until AlphaBlendValue <= 5;
  Hide;
end;
//...

YourProject.dpr

var
  Splash: TSplashForm;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Splash := TSplashForm.Create(nil);
  try
    Splash.FadeIn;
    //any initialization code here!!!
    Application.CreateForm(TMainForm, MainForm);
    MainForm.Show;
    MainForm.Update;
    //more code
    Sleep(500);  //I used it to delay a bit, because I only create one form and I have not initialization code at all!
    Splash.FadeOut;
  finally
    Splash.Free;
  end;
  Application.Run;
end.

我的 5 美分，享受吧。

Answer 3

我是通过以下方式完成的：

• 我从“自动创建表单”中删除了启动表单。

• 在我拥有的主要表单的FormCreate 中：

  with TfSplash.Create(Self) do Show;
  

• 在初始表单中，我有以下内容：

  procedure TfSplash.FormShow(Sender: TObject);
  begin
    Timer.Enabled:=True;
  end;
  
  
  procedure TfSplash.TimerTimer(Sender: TObject);
  begin
    Release; // like free, but waits for events termination
  end;