Поле для ввода ip адреса

if(::InitCommonControlsEx(&commctrl))
    {
         hWndIP = ::CreateWindow(
         WC_IPADDRESS,
         NULL,
         WS_CHILD | WS_GROUP |WS_VISIBLE,
         IPMaskEdit->Left,              //Координаты старого поля
         IPMaskEdit->Top,
         IPMaskEdit->Width,
         IPMaskEdit->Height,
         GroupBox4->Handle,
         (HMENU)IP_ADDRESS_ID,
         HInstance,
         0);
    }

if( SysDevSettingsForm->ActiveControl )
{
    SysDevSettingsForm->DefocusControl( SysDevSettingsForm->ActiveControl, false );  // сброс vcl фокуса
}
PostMessage( SelectedHandle, IPM_SETFOCUS, iIPcontrolFiled, 0 );

void __fastcall TForm1::WndProc(TMessage &Message)
{
long int nField;
    switch (Message.Msg)
    {
    case WM_NOTIFY:
        {
            LPNMHDR lpNMHDR = (LPNMHDR)(Message.LParam);
            switch (lpNMHDR->code)
            {
            case IPN_FIELDCHANGED:
                LPNMIPADDRESS sIPAddress;
                sIPAddress = (LPNMIPADDRESS)(Message.LParam);
                if (sIPAddress->iValue > 255)
                {
                    sIPAddress->iValue = 255;
                }
            case EN_SETFOCUS:
 //             LPNMIPADDRESS sIPAddress;
                sIPAddress = (LPNMIPADDRESS)(Message.LParam);
        if( Form1->ActiveControl )
        {
            Form1->DefocusControl( Form1->ActiveControl, false );  // сброс vcl фокуса
    PostMessage( hWndIP, IPM_SETFOCUS, sIPAddress->iField, 0 );
            }
 
            }
        } break;
 
        // тут обработка других сообщений, если нужно
    }
    TForm::WndProc(Message); // interited
}

PostMessage( hWndIP, IPM_SETFOCUS, sIPAddress->iField, 0 );