说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中使用IP控件

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中使用IP控件

初始化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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘