阻止关闭窗口，FormCloseQuery

procedure TfrmTopJdsMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('您好,关闭此插件,将导致【订单全链路】不能正常使用！请确认是否关闭？',mtConfirmation,[mbYes,mbNo],0) = mrNo then
  begin
    CanClose := False;
  end;
end;

这样窗口在关闭的时候  如果点击了否  就可以不关闭了