KeyUp 与Messagebox 问题

Question

procedure TfrmClient.dvTableKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
  13:self.mChange;
  46:
  begin   if MessageBox(Handle,'确定要把选中的该信息放入回收站吗?','提示',MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    begin
      //Self.mDel;
    end;  end;
  end;end;以上是代码。出现的问题：当我按  Delete 键后,会弹出对话框，当按回车键确定后，又再次执行代码中的  self.mChange 语句，如果有鼠标点确定是正常的。
请问该问题该怎么解决？ 使其对话框按回车键确定后不执行 Self.mChange代码。谢谢了！在线等

Answer 1

谢谢 kaikai_kk！ 按你的方法问题解决！！！！

Answer 2

KeyUp是松开键后触发的事件按Delete松开后->执行MessageBox->按Enter时(未松开)->结束MessageBox->Enter松开后->会继续执行KeyUp中代码应该明白了吧