IP Editor IP控件

HWND hIpEdit;

void __fastcall TForm2::FormCreate(TObject *Sender)
{

    hIpEdit = CreateWindow(WC_IPADDRESS, NULL, WS_CHILD | WS_VISIBLE, 10, 10, 135, 47, Handle, 0, HInstance, NULL);
}
// ---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)
{
    SendMessage(this->hIpEdit, IPM_CLEARADDRESS, 0, 0);
}
// ---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
    int nIP;
    nIP = MAKEIPADDRESS(192, 168, 0, 1);
    SendMessage(hIpEdit, IPM_SETADDRESS, 0, nIP);
}

// ---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
    int nIP;
    SendMessage(hIpEdit, IPM_GETADDRESS, 0, int(&nIP));
    nIP++;
    SendMessage(hIpEdit, IPM_SETADDRESS, 0, nIP);

}
// ---------------------------------------------------------------------------

void __fastcall TForm2::Button5Click(TObject *Sender)
{
    SendMessage(hIpEdit, IPM_SETFOCUS, 3, 0);
}