IP控件的使用

在网络程序中，我们常常碰到需要用户输入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)。

　　1. 初始化Windows自定义控制库

　　Windows提供了两个API函数，InitCommonControls和InitCommonControlsEx，用来初始化自定义控制库。从名字我们不难看出这两个API函数的关系：后者是前者的增强。如果你希望在程序中使用IP控件，你必须用InitCommonControlsEx来完成对自定义控制库以及类的初始化。函数InitCommonControlsEx的原型如下(Pascal语法)：

　　... ...

　　创建IP控件

　　... ...

　　使用IP控件。 在程序中，我们通过向IP控件发送消息来与它通讯。IP控件可以响应的消息有以下6个，这些消息及它们的含义，见下表：

　　... ...

　　若想要获取IP控件中IP串所对应的IP值，你应该向IP控件发送IPM_GETADDRESS消息，并且需要把一个32位整数的地址作为SendMessage的最后一个参数。

　　... ...

　　2. 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;

 

　　三.动态生成控件的方法及应用

　　1.Delphi中生成控件的两种方法

　　(1). Form(表单)设计中生成控件

　　在进行Form设计时，直接在控件工具箱选择所需控件，再设置其属性与响应事件，这种方法比较常见。

　　(2).程序中动态生成控件

　　有时候，我们需要在程序运行时动态生成控件，这样做有两大优点：一是可以增加程序的灵活性；二是如果生成控件的多少与程序中间运行结果相关，显然方法一是无法的实现的，必须用程序中动态生成方法。

　　程序中动态生成控件的方法分为三步，首先，定义生成的控件类型，再用Create函数生成控件，最后对控件的相关属性赋值。以TButton控件为例，步骤如下：

　　a. 定义控件类型

　　var

　　Button1:TButton;

　　b.生成控件

　　Button1:=TButton. Create(self);

　　Button1.Parent:=Self;

　　//一般将其父控件设置为Self,如果不设置Parent的值，

　　则控件不会在屏幕

　　//显示出来

　　c.设置其它属性及定义相关事件响应函数，如Caption,Left,Top,Height,Width,Visible,Enabled,Hint和onClick事件响应函数等