如果调用formclose?

Question

如题。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  OneCa: TCloseAction;
begin
  OneCa := caNone;
  FormClose(Self, OneCa);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————