BCB为什么WndProc无法截获WM_KEYDOWN消息?
不过OnMessage却可以?
void __fastcall TForm1::WndProc(TMessage &Message)
{
if(Message.Msg==WM_KEYDOWN && Message.WParam=='D')
Panel1->Color=clLime;
TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
bool &Handled)
{
if(Msg.message==WM_KEYDOWN && Msg.wParam==VK_TAB)
{
Panel2->Color=clLime;
Handled=true;
}
else
Handled=false;
}