How to create pop up form at start of program in delphi?

Hi all,

I want to disp开发者_运维技巧lay that option form above the Main Form when application will run. So How can I display Option form with Main form in background at start?

Thanks for help.

---

Can use OnActivate. Have to wrap it in some code to prevent it from firing when other application forms close and the main one gets activated again however.

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

---

instead of using OptionForm.ShowModal in OnCreate or OnShow create a custom message like Const AM_ShowOptionForm = WM_APP +1 and Post a message back to your main form.

Add a message handler on your main form such as

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