if Application.MessageBox('有收费项目未完成，是否确定退出？','提示',MB_OKCANCEL)=IDOK then
begin
 if ( brzlhxform.ShowModal = mrOK ) then  //這個視窗要設定modal result的值，在根據按OK或CANCEL來傳回是mrOK或mrCancel
    .....
 else
    ....;
end
else
   Action := caNone;  //按取消不會關閉視窗
end;    以下剪一段Delphi的 modalresult 的 sample code
procedure TMyDialogBox.OKButtonClick(Sender: TObject);    begin
  ModalResult := mrOK;
end;    procedure TMyDialogBox.CancelButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;    end;    procedure TForm1.Button1Click(Sender: TObject);    begin
  if MyDialogBox1.ShowModal = mrOK then
    Beep;
end;
 

引言: else Action := caNone; //按取消不會關閉視窗 这个已经实现了。(我还是有点觉得寄怪，好象应该不写什么代码安取消就是对话框消失的) if Application.MessageBox('有收费项目未完成，是否确定退出？','提示',MB_OKCANCEL)=IDOK then brzlhxform.ShowModal;//这一行代码不是我要的功能，只是为了程序好运行瞎写的，我要写的这一行代码是sfform.close(也就是本窗口关闭，但一执行就是死循环了)

1.
if Not(Application.MessageBox('有收费项目未完成，是否确定退出？','提示',MB_OKCANCEL)=IDOK)then Action := caNone;
2.
if Application.MessageBox('有收费项目未完成，是否确定退出？','提示',MB_OKCANCEL)=IDCANCEL then Action := caNone;