这代码为什么不能捕捉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;
}
}