(MessageDlg('确认删除此记录吗?', mtConfirmation, //SDeleteRecordQuestion ksr 2012 '确认删除此记录吗?'
// mbOKCancel, 0) <> idCancel)
改为
(MessageBox(GetForegroundWindow(),''确定要删除这条记录吗?'',''确认'',MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2)=IDYES)
D:\Program Files\Borland\CBuilder6\Source\vcl\dbctrls.pas 文件 3954行