procedure TfrmTopJdsMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('您好,关闭此插件,将导致【订单全链路】不能正常使用!请确认是否关闭?',mtConfirmation,[mbYes,mbNo],0) = mrNo then begin CanClose := False; end; end;
这样窗口在关闭的时候 如果点击了否 就可以不关闭了
procedure TfrmTopJdsMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('您好,关闭此插件,将导致【订单全链路】不能正常使用!请确认是否关闭?',mtConfirmation,[mbYes,mbNo],0) = mrNo then begin CanClose := False; end; end;
这样窗口在关闭的时候 如果点击了否 就可以不关闭了
转载于:https://www.cnblogs.com/del88/p/3942309.html