这代码为什么不能捕捉Shift+数字小键盘的事件?
一个窗体,上面就一个TEdit组件(名为edt1)
在OnKeyUp事件中:
void __fastcall TForm1::edt1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift){ if(Shift.Contains(ssShift)) { if(Key=='1'||Key==97) { if(Key==97) Key='1'; if(StrToInt(edt1->Text)>0) edt1->Text=StrToInt(edt1->Text)-1; } else Key=0; } else { if(Key=='1'||Key==97) { if(Key==97) Key='1'; edt1->Text=StrToInt(edt1->Text)+1; } else Key=0; }}