我现在的做法是，在DBGRID中显示资料，选中了哪一条，然后点删除键就删除了当前选中的记录，代码如下： if MessageDlg('确定删除该记录吗',mtConfirmation,[mbYes,mbno],0)= mrYes then ADOTable1.Delete; 我想要的功能是 能提示删除的是数据库中的哪一个字段名，例如，‘确定删除名称为（当前选中的记录中的名称字段的内容）吗？’这样的话不容易删错记录。 谢谢！

------
我的编程起步于ktop，我将永远支持ktop

Hi, 直接加上下面的 code 即可,

引言: if MessageDlg('确定删除该记录吗?' ＋ 'data=' ＋ ADOTable1.FieldByName('my_key').AsString ,mtConfirmation,[mbYes,mbno],0)= mrYes then ADOTable1.Delete;

您好﹗    在ADOTable1的BeforeDelete事件中輸入如下程式碼﹕

begin
  if MessageDlg('确定刪除名稱為﹕'+ADOTable1.FieldByName('名稱').AsString'+' 嗎﹖', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
  Abort;
end;

如果您是配合DBNavigator元件做刪除動作﹐記得把DBNavigator元件的ConfirmDelete屬性值設為False﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

谢谢两位前辈，两位都给了我很满意的指导，但结案只能一个，所以我只有按时间顺序了。再次感谢！

------
我的编程起步于ktop，我将永远支持ktop