直接把dbctrls.pas文件的 if not FConfirmDelete or (MessageDlg(SDeleteRecordQuestion, mtConfirmation, mbOKCancel, 0) <> idCancel) then Delete;改为 if not FConfirmDelete or (MessageBox(0,PChar('确实要删除此条记录吗?'),'删除记录?', MB_ICONQUESTION or MB_YESNO) <> IDNO) then Delete;就可以了 爽!!!
我可以再告诉你一招,下载一个外挂,装上就不用烦心了,名字叫CnPack ID 专家包,有邮箱的话,我可以发一个给你
Application.Messagebox('确定要删除此条记录吗?','提示',64);
....
SMsgDlgError = 'Error';
SMsgDlgInformation = 'Information';
SMsgDlgConfirm = 'Confirm';
SMsgDlgYes = '&Yes';
SMsgDlgNo = '&No';
SMsgDlgOK = 'OK';
后面的内容修改为中文,保存
这样就可以将它作为一个资源来用,打开你要编译项目的,在菜单的Option选项的Dir../Condi...小项,在search Path中添加你刚考的副本路径,好了,编译,看看,
谢谢
不过Delphi 3.0里面这个办法是可行的。
if not FConfirmDelete or
(MessageDlg(SDeleteRecordQuestion, mtConfirmation,
mbOKCancel, 0) <> idCancel) then Delete;改为
if not FConfirmDelete or
(MessageBox(0,PChar('确实要删除此条记录吗?'),'删除记录?',
MB_ICONQUESTION or MB_YESNO) <> IDNO) then Delete;就可以了 爽!!!