如何在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; 

Answer 2

而不是在OptionForm.ShowModal或OnCreate中使用OnShow创建自定义消息，例如Const AM_ShowOptionForm = WM_APP +1，并将消息发回主表单。

在主表单上添加消息处理程序，例如

Procedure RecieveOptionFormMessage(var Msg:TMessage); Message AM_ShowOptionForm
begin
    OptionForm.ShowModal;
end;