求IP地址控件


BCB中，IP控件都是参考妖哥的做法

     TInitCommonControlsEx   CommCtrl;
     CommCtrl.dwSize   =   sizeof(TInitCommonControlsEx);
 CommCtrl.dwICC   =   ICC_INTERNET_CLASSES;//指定Class
 if(InitCommonControlsEx(&CommCtrl))
     {
       IPHwd = CreateWindow(WC_IPADDRESS,NULL,
                             WS_CHILD|WS_VISIBLE,
                             115,         //Left
                             55,           //Top
                             130,         //Width
                             21,           //Height
                             GroupBoxMode->Handle,   //这个是父窗口的句柄
                             0,
 0,
                             NULL);

     }

折中模式做出来的控件，与XE2控件的字体不一致，和XE2的控件放在一起，不协调，有没有好控件可推荐的
[解决办法]
解决方法很简单，用WM_SETFONT消息设置字体。

以后遇到类似问题时，Google一下就有答案。

Google "WC_IPADDRESS 字体"
第一个链接就可用
[解决办法]
WM_SETFONT消息的WParam需要一个HFONT对象，你代入一个TFont对象，可以说是张冠李戴。改成：

SendMessage (IPHwd, WM_SETFONT, (WPARAM)Font->Handle, 0);