delphi中关闭程序时询问是否退出

你可以使用以下代码在 Delphi 中实现关闭程序时询问是否退出：

在主窗体的 OnClose 事件中添加以下代码：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  if MessageDlg('确定要退出程序吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

   Action := caFree

  else

   Action := caNone;

end;

这将弹出一个对话框，询问用户是否要退出。如果用户点击“是”，则程序将关闭。如果用户点击“否”，则程序将继续运行。

请注意，在上述代码中，我们使用了 MessageDlg 函数来显示对话框。该函数有四个参数：消息字符串、消息类型、按钮选项和默认按钮。在此示例中，我们使用 mtConfirmation 消息类型，表示这是一个确认消息，并提供了两个按钮：“是”和“否”。如果用户单击“是”，则函数返回 mrYes，否则返回 mrNo。最后，我们根据用户的响应来设置 Action 变量，以指定程序应采取的操作。如果用户单击“是”，则设置 Action 为 caFree，这意味着程序将被释放并关闭。如果用户单击“否”，则设置 Action 为 caNone，这意味着程序将继续运行。