再问CreateWindow(IP输入框)后的Tab 焦点问题

[soloxiao]

新增:
INITCOMMONCONTROLSEX CommCtrl;
CommCtrl.dwSize = sizeof(CommCtrl);
CommCtrl.dwICC = ICC_INTERNET_CLASSES;//﹚Class
if( InitCommonControlsEx( &CommCtrl ) )
{
IPHwd = CreateWindow( TEXT("SysIPAddress32"),
TEXT("IPADDR2"),
WS_CHILD | WS_TABSTOP | WS_GROUP,
49, //Left
47, //Top
145, //Width
24, //Height
this->Handle,
0,
0,
0);

ShowWindow(IPHwd, SW_SHOW );
SetWindowText(IPHwd,"0.0.0.0");
}
但是我按tab键不能到IP输入框

[lurel]

if (Msg.CharCode==VK_TAB)
{
::SetFocus(IPHwd);
Handled = true;
}

[lurel]

void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode==VK_TAB)
{
::SetFocus(IPHwd);
Handled = true;
}
}

[soloxiao]

Thanks!
---------------------
HANDLE IPHwd;
BOOL X;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
INITCOMMONCONTROLSEX CommCtrl;
CommCtrl.dwSize = sizeof(CommCtrl);
CommCtrl.dwICC = ICC_INTERNET_CLASSES;//﹚Class
if( InitCommonControlsEx( &CommCtrl ) )
{
IPHwd = CreateWindow( TEXT("SysIPAddress32"),
TEXT("IPADDR2"),
WS_CHILD | WS_TABSTOP | WS_GROUP,
49, //Left
47, //Top
145, //Width
24, //Height
this->Handle,
0,
0,
0);

ShowWindow(IPHwd, SW_SHOW );
SetWindowText(IPHwd,"0.0.0.0");
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
::SetFocus(IPHwd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Enter(TObject *Sender)
{
X = TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
if (Msg.CharCode==VK_TAB && X)
{
::SetFocus(IPHwd);
Handled = true;
X = false;
}
}
//---------------------------------------------------------------------------