怎样设置退出按钮？

Question

我想用一个按钮来执行退出程序，应该怎么作？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

Answer 2

如果所在窗体是主窗体
form1.Close;
如果不是：
application.Terminate;

Answer 3

楼上的不好, 用 ActionList, 中有 standard action 有 FileExit哈收拾残局的事到 MainForm.OnDestory,OnCloseQuery, OnClose 去作

Answer 4

procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 application.Terminate;
end;
或者
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate;end;

Answer 5

form1.Close;和 application.Terminate; 都行阿，我用哪个好？我是想作主界面，如果登陆成功则进入下一个form，点击 离开 则退出。