|
-----在网络程序中，我们常常碰到需要用户输入IP地址的情况
。然而Delphi并没有为我们提供可以用于输入IP串的控件，于是我们
只好用Tedit控件（单行文本框）来接受用户输入的IP串。但是，使
用Tedit来输入IP串并不是一个好的主意，因为处理起来非常不方便
。事实上，在我们的身旁有一个专门用来输入IP串的Windows控件，
该控件如图所示。IP控件会拒绝非法的IP串（在每个部分只能输入
0..255之间的数字）；它让你可以轻松地获取控件中的IP串所对应的
IP值（32位整数），这省去了IP串和IP值之间相互转换的麻烦；此外，
你还能限制IP控件中所能输入的IP的范围。在本文中，我将向大家介
绍如何在我们的Delphi程序中使用Windows的IP控件。
---- Windows中有两个非常重要的动态联结库：commctrl.dll和
comctl32.dll，它们是Windows的自定义控制库（Windows
Common Controls）。自定义控制库中包含了许多常用的Windows控件，如
Statusbar，Coolbar，HotKey等；在Delphi中，这些控件大多数都
已被包装成可视化控件了。在Microsoft推出Internet
Explorer 3
之后，自定义控制库中新增了一些控件，其中就包括Windows的IP控
件（IP Address edit control）。
----初始化Windows自定义控制库----
Windows提供了两个API函 数，InitCommonControls和InitCommonControlsEx，用来初始化自定
义控制库。从名字我们不难看出这两个API函数的关系：后者是前者
的增强。如果你希望在程序中使用IP控件，你必须用
InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数
InitCommonControlsEx的原型如下（Pascal语法）：
---- ... ...
---- 创建IP控件
---- ... ...
----使用IP控件。在程序中，我们通过向IP控件发送消息来与它
通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义，见
下表：
---- ... ...
----若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发
送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为
SendMessage的最后一个参数。
---- ... ...
---- IP控件的通知消息
----当IP串被改动后或者输入焦点发生了转移，IP控件就会向它
的父窗口发送通知消息IPN_FIELDCHANGED。在大多数情况下，我们都
可以忽略此通知消息。以下是处理通知消息IPN_FIELDCHANGED的一个
示例：
procedure Tform1.WndProc(var Msg:
TMessage);
var p:PNMHDR;
begin
inherited;
if Msg.Msg=WM_NOTIFY
then begin
p:=Pointer(Msg.lParam);
if p^.code=IPN_FIELDCHANGED
then begin
{…
处理IP控件的IPN_FIELDCHANGED通知消息
…}
end;
end;
end;
|
