On our main data entry screen, we have an OK/Cancel dialog in the OnBeforePost event.

• OK lets things take their course
• Cancel right now does a Dataset.Cancel;

Which does what it's meant to, roll back any changes and puts the dataset into browse mode.

This is fine for most of the clients, but we have been asked if it can be changed to

• Cancel, Abort the Post and stay in edit mode with the current changes kept.

If they want to cancel, they can use the cancel button.

Looking at the source for procedure TDataSet.Post; it does not look possible to use the event this way.

Dose anyone have any thoughts on a way this could be done?

Follow Up: this is how I have chosen to handle it now

case MessageDlg('Save Changes?', mtWarning, [mbYes, mbNo, mbAbort], 0) of
  mrYes: ;
  mrNo: Dataset.Cancel;
  mrAbort: Abort;
  mrNone: Abort;
end;

• 译文

  case MessageDlg（'保存C挂起？'，mtWarning，[mbYes，mbNo，mbAbort]，0）
 mrYes：; 
 mrNo：Dataset.Cancel; 
 mrAbort：中止
 mrNone：中止
结束