TcxCalcEdit 的下拉窗口中按 ESC 键后保留原值

可以在 TcxCalcEdit 控件的 OnInitPopup 事件将自己的按键处理过程指定到下拉窗口

procedure TForm2.cxCalcEdit1KeyDown(Sender: TObject; var Key: Word;  
  Shift: TShiftState);  
begin  
   if Key = VK_ESCAPE then  
   begin  
     Key := 0;  
     TcxPopupEditPopupWindow(Sender).ClosePopup;  
   end;  
end;  

procedure TForm2.cxCalcEdit1PropertiesInitPopup(Sender: TObject);  
begin  
  TcxCalcEdit(Sender).PopupWindow.OnKeyDown := cxCalcEdit1KeyDown;  
end;