delphi 单击form 中的按钮 button2 实现窗口关闭，如下代码 怎么老是报错 ？

Question

procedure TForm1.Button2Click(Sender: TObject);
begin
//form1.OnClose;
  form1.FormClose(Sender: TObject; var Action: TCloseAction);
end;
老是报错： not enough actual parameters
请问 错在哪里？该如何写 呢  我新手。

Answer 1

顶，关闭写一个close不就行了。

Answer 2

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Close; 
  //或者 Application.Termnite;(好象是这么拼写的 忘了)
end; 

Answer 3

form1.FormClose(Sender: TObject; var Action: TCloseAction); 
这里边还有几行代码呢，是检测是否保存，如果数据没保存 先进行保存的功能。

Answer 4

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if  MessageDlg('close?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   canclose:=true
 else
   canclose:=false;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;