好吧问答库 > 我用编程delphi,delphi7运行时出现错误，是创建一个简单窗口，关闭的时候，显示提示是否要关闭？代码如下

我用编程delphi,delphi7运行时出现错误，是创建一个简单窗口，关闭的时候，显示提示是否要关闭？代码如下

2026年09月22日 05:02

有1个网友回答

网友（1）：

哈哈,选我吧!procedureTForm1.btn1Click(Sender:TObject);
begin
form1.Close;
end;
procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);
begin
ifMessageDlg('是否关闭',
mtConfirmation,[mbYes,mbNo],0)=mrYesthen
begin
action:=caFree;
end
else
Action:=caNone;
end;