Question

delphi怎么写form 的close的事件

如，form关闭时就 弹出信息框！！！还有怎么添加其他事件

Answer 1

添加form的onClose事件。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('是否关闭程序', mtInformation, [mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;

Answer 2

这是有关不能添加