delphi - 如何在Delphi程序启动时创建弹出表单？

Question

大家好，

我想在应用程序运行时在主窗体上方显示该选项窗体。那么，如何在启动时在后台显示带有主窗体的选项窗体？

感谢帮助。

Answer 1

可以使用OnActivate。必须将其包装在一些代码中，以防止在其他应用程序窗体关闭并且主窗体再次被激活时触发它。

procedure TForm1.FormActivate(Sender: TObject);
Const
{$J+}
  SettingsShown : Boolean = false;
{$J-}
begin
  if SettingsShown = false then
  begin
    Form2.ShowModal;
    SettingsShown := True;
  end;
end;