End 終了
Endは実行中のプログラムの終了に使用します。 Delphiでは Closeを使用します。 Closeはフォームを閉じる際にも使用します。ではフォームを閉じるのとプログラムを終了させるのとを
どうやって区別するのかといいますと、Delphiにはメインフォームという概念があり、 メインフォームに指定されたフォームをCloseしたときにプログラムが終了するわけです。
もしくは Applicationオブジェクトの Terminateメソッドで終了することも可能です。
| ■ 終了の例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
//このフォームがメインフォームならこの一文でOK
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//メインフォームで無いならこの一文でOK
Application.Terminate;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//もしくは
Application.MainForm.Close;
end;
|
メインフォームの指定は[プロジェクト]メニューの[オプション]の[フォーム] で指定します。