設定フォームをメインフォームの前に表示するにはどうすればよいですか？

Question

私のプロジェクトには2つのフォーム（form1、form2）があり、form1は設定フォームです。

Form1を表示し、Button1をクリックしてForm2を表示し、Form1を解放（リリース）します。どうすればこのことができますか？

私はこのコードを使用します。このプロジェクトは開始して自動的に終了します。Friendは、メインメッセージが存在しないため、アプリケーションメッセージループが開始されず、アプリケーションが終了するため、どのように私はこの問題を解決することができますか？ ///

program Project1; 
uses 
    Forms, 
    Unit1 in 'Unit1.pas' {Form1}, 
    Unit2 in 'Unit2.pas' {Form2}; 
{$R *.res} 
begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Form1:= TForm1.Create(Application); 
    Application.Run; 
end. 

Answer 1

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Application.CreateForm(TForm2, Form2); 
    Release; 
end; 

あなたが最初のForm2を作成する必要があり、これはあなたのメインフォームになります。 Form1がその仕事を終えた後で、それを隠して表示したいと思っています。このようなもの：

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Form2.Show; 
    Release; 
end; 

/// 

program Project1; 
uses 
    Forms, 
    Unit1 in 'Unit1.pas' {Form1}, 
    Unit2 in 'Unit2.pas' {Form2}; 
{$R *.res} 
begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TForm2, Form2); 
    Form2.Hide; 
    Form1 := TForm1.Create(Application); 
    Form1.Show; 
    Application.Run; 
end. 

理由は、メインフォームが閉じるときにアプリが終了するということです。そして、あなたのメインフォームは、通常あなたが作成する最初のフォームです。

Answer 2

質問タイトルで質問したことを正確に実行します。設定フォームを作成して表示し、メインフォームを作成して表示します。トリックはですどのようにを作成します。 Only use Application.CreateForm for the one form that you want to be your main form.他のすべてのフォームには通常のオブジェクト作成テクニックを使用します。

はそうのようなあなたのDPRのファイルを変更します。

var 
    ConfigForm: TConfigForm; 
begin 
    Application.Initialize; 

    ConfigForm := TConfigForm.Create(nil); 
    try 
    if ConfigForm.ShowModal <> mrOK then 
     exit; 
    finally 
    ConfigForm.Free; 
    end; 

    Application.CreateForm(TMainForm, MainForm); 
    Application.Run; 
end. 

Answer 3

あなたは偽にShowMainFormを設定することによって示されなければ、Form1を禁止することができます。 IDEは、それを作成するだけのようDPRでコードを残す：

uses 
    Forms, 
    Unit2 in 'Unit2.pas' {Form2}, 
    Unit1 in 'Unit1.pas' {Form1}; 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TForm1, Form1); 
    Application.CreateForm(TForm2, Form2); 
    Application.Run; 
end. 

のForm2のFormCreateイベントでちょうどに偽ShowMainFormを設定し、Form2のが見えるように表示を呼び出す：

procedure TForm2.FormCreate(Sender: TObject); 
begin 
    Application.ShowMainForm := False; 
    Show; 
end; 

およびButtonClick Form2のイベントはForm1を表示し、Form2を閉じる：

procedure TForm2.Button1Click(Sender: TObject); 
begin 
    Form1.Show; 
    Close; 
end; 

これは、unit2内で必要な変更をすべて行います。

編集 その上、夜寝た後、頭に浮かんだいくつかの発言：

1. Form2が最後の自動作成、直接Application.Run文の前、すなわち1でなければなりません。
2. ButtonClickイベントのForm1.Showステートメントは、FormCloseイベントに移動する必要があります。したがって、ユーザーはWindowsの閉じるボタンまたは彼が一番好きなものを使ってフォームを閉じることができます。
3. 何らかの理由でForm1を表示しない場合は、アプリケーションを閉じるためにいくつかのコードを追加する必要があります。A 停止がここに奉仕するかもしれません。