デルファイのプログラムの開始時にポップアップフォームを作成するには？

Question

こんにちはすべて

アプリケーションを実行するときに、メインフォームの上にそのオプションフォームを表示したいとします。では、最初にバックグラウンドでメインフォームのオプションフォームを表示するにはどうすればよいですか？

ありがとうございました。

Answer 1

としてメインフォーム上のメッセージハンドラを追加します。他のアプリケーションのフォームが閉じてメインのものが再びアクティブになったときに発火するのを防ぐために、いくつかのコードでラップする必要があります。

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

代わりのConst AM_ShowOptionForm = WM_APP +1とポストバックメインフォームへのメッセージのようなカスタムメッセージを作成OnCreateでOptionForm.ShowModalまたはOnShowを使用。

は、このような OnActivateを使用することはでき

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