请问有没有ip address控件 同上 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 我说的是跟vc＋＋的ipaddress一样的，用来填写ip地址的控件。 在进行网络设置时，我们常常碰到需要填写IP地址的情况，为此Windows引入了一个专门用来接受IP地址输入的控件（如图所示）。Windows IP地址编辑控件（IP Address edit control）是随着微软的Internet Explorer 4.0的推出而引入Windows操作系统的（Windows 98和Windows 2000中都已经包含了此控件）。但是令人遗憾的是在Inprise公司最新版本的Delphi 5和C++ Builder 5中，Borland可视化控件库（Visual Component Library）中居然没有提供IP地址编辑控件。为了让Delphi和C++ Builder开发人员更方便地使用IP控件，本文介绍如何将它包装成一个可以在Delphi和C++ Builder的IDE环境中使用的可视化Delphi控件。同时本文也为读者学习Delphi控件编写提供了一个比较好的示例；它涉及了Delphi控件编写的以下方面的知识：将Windows窗口类封装成Delphi控件，将Windows消息映射成事件属性，多个属性共享read和write方法，以及属性编辑器（Property Editor）的构造。 IP控件的属性、方法及事件本文将为Delphi/C++ Builder的IP控件实现下面的属性、方法和事件。它们的简单介绍如下：IP属性：IP控件中的IP地址值(32位整数LongWord)。为了获取IP控件的IP值，我们只需要读取此属性即可；通过对IP属性赋值，我们就能够改变IP控件的内容。Field0..Field3属性：Field0到Field3分别为IP控件的4个部分的值。这四个属性也是为了读取和改变IP控件的IP值而设置的。Field0Range..Field3Range 属性：Field0Range到Field3Range限制IP控件各部分的取值的范围。Blank属性：判断IP控件的IP串是否为空，此属性为只读属性。About属性：在Object Inspector中点击它可以显示控件的版本信息，添加此属性是为了提供一个编写属性编辑器的简单例子。以下属性继承自TWinControl类：Font、TabOrder、TabStop、 ParentShowHint、ShowHint、Hint、及Visible。TIPEdit的事件属性有：OnFieldChange、OnChange、OnEnter以及OnExit。 Clear方法：清空IP控件中的IP串。SetFieldFocus方法：设置IP控件的输入焦点。IP控件的实现//文件名：IPEdit.PAS{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}// IP address edit control for Borland Delphi 5// Implemented by Simon Liu ([email protected]){~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}unit IPEdit;interfaceuses Windows, Messages, SysUtils, Classes,Forms, Controls, ComCtrls, CommCtrl, DsgnIntf; typeTFieldRange = recordLowRange: Byte;HighRange: Byte;end; TFieldChangeEvent = procedure(Sender: TObject; OldField, Value: Byte) of Object; //定义TAboutProperty属性编辑器TAboutProperty = class(TPropertyEditor)publicprocedure Edit; override;function GetAttributes: TPropertyAttributes; override;function GetValue: string; override;end; TIPEdit = class(TWinControl)privatefAbout:TAboutProperty;FIP: LongWord;FFields:array[0..3] of Byte;FFieldRanges: array [0..3] of TFieldRange;FCreating: Boolean;FOnChange: TNotifyEvent;FOnEnter: TNotifyEvent;FOnExit: TNotifyEvent;FOnFieldChange: TFieldChangeEvent;procedure SetIP(Value: LongWord);function GetIP: LongWord;function GetField(Index:Integer):Byte;procedure SetField(Index:Integer; B:Byte);function GetFieldRange(Field: Integer): TFieldRange;procedure SetFieldRange(Field:integer; Value: TFieldRange);procedure SetIPAddress;function GetBlank: Boolean;procedure WMNotifyFormat(var Message: TMessage); message WM_NOTIFYFORMAT;//处理IP控件的通知消息IPN_FIELDCHANGEDprocedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;procedure WMSetFont(var Message: TWMSetFont); message WM_SETFONT;protectedprocedure CreateParams(var Params: TCreateParams); override;procedure CreateWnd; override;procedure DestroyWnd; override;publicconstructor Create(AOwner: TComponent); override;destructor Destroy; override;//清除IP控件中的IP串procedure Clear;//设置IP控件的输入焦点（field的有效取值为0..3）procedure SetFieldFocus(Field:Byte);published//判断IP控件的IP串是否为空property Blank: Boolean read GetBlank;//Field0到Field3分别为IP控件的4个部分的值property Field0: Byte index 0 read GetField write SetField;property Field1: Byte index 1 read GetField write SetField;property Field2: Byte index 2 read GetField write SetField;property Field3: Byte index 3 read GetField write SetField;//Field0Range到Field3Range限制IP控件各部分的取值的范围property Field0Range: TFieldRange index 0 read GetFieldRange write SetFieldRange;property Field1Range: TFieldRange index 1 read GetFieldRange write SetFieldRange;property Field2Range: TFieldRange index 2 read GetFieldRange write SetFieldRange;property Field3Range: TFieldRange index 3 read GetFieldRange write SetFieldRange;//IP地址值(32位整数LongWord)property IP: LongWord read GetIP write SetIP;//The About boxproperty About:TAboutProperty read fAbout;//事件属性property OnChange: TNotifyEvent read FOnChange write FOnChange;property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;property OnExit: TNotifyEvent read FOnExit write FOnExit;property OnFieldChange: TFieldChangeEvent read FOnFieldChange write FOnFieldChange; //以下属性继承自TWinControl控件property Enabled;property TabOrder;property TabStop;property ParentShowHint;property ShowHint;property Hint;property Visible;end; procedure Register; implementation {~~~~~~~~~~~~~~~~~TAboutProperty~~~~~~~~~~~~~~~~~~~~~}procedure TAboutProperty.Edit;beginApplication.MessageBox('TIPEdit for Delphi 5'#13+'(C) 2000 by Simon Liu'#13+'Email:[email protected]','About TIPEdit',MB_ICONINFORMATION);end; function TAboutProperty.GetAttributes: TPropertyAttributes;beginResult := [paDialog, paReadOnly];end; function TAboutProperty.GetValue: string;beginResult := '(Simon)';end; {~~~~~~~~~~~~~~~~~~~~~~TIPEdit~~~~~~~~~~~~~~~~~~~~~~~~}constructor TIPEdit.Create(AOwner: TComponent);vari: integer;begin//初始化ICC_INTERNET_CLASSES类控件CheckCommonControl(ICC_INTERNET_CLASSES);inherited Create(AOwner);for i:= 0 to 3 dobeginFFieldRanges[i].LowRange:= 0;FFieldRanges[i].HighRange:= 255;FFields[i]:=0;end;FIP:=0;Height:= 25;Width:= 152;TabSTop:= True;end; procedure TIPEdit.DestroyWnd;begininherited DestroyWndend; destructor TIPEdit.Destroy;begininherited Destroy;end; procedure TIPEdit.CreateParams(var Params: TCreateParams);begininherited CreateParams(Params);CreateSubClass(Params, WC_IPADDRESS);with Params dobeginend;end; procedure TIPEdit.CreateWnd;beginFCreating := True;tryinherited CreateWnd;SetIPAddress;finallyFCreating := False;end;end; function TIPEdit.GetBlank: Boolean;beginResult:= Boolean(SendMessage(Handle, IPM_ISBLANK, 0, 0));end; procedure TIPEdit.Clear;beginSendMessage(Handle, IPM_CLEARADDRESS, 0, 0);end; procedure TIPEdit.SetFieldFocus(Field:Byte);beginSendMessage(Handle, IPM_SETFOCUS, Field, 0);end; function TIPEdit.GetFieldRange(Field: Integer): TFieldRange;beginResult:= FFieldRanges[Field];end; procedure TIPEdit.SetFieldRange(Field: Integer; Value: TFieldRange);beginif Value.LowRange > Value.HighRange then exit;if (FFieldRanges[Field].LowRange <> Value.LowRange) or(FFieldRanges[Field].HighRange <> Value.HighRange) thenbeginFFieldRanges[Field]:= Value;SendMessage(Handle, IPM_SETRANGE, Field,MakeIPRange(Value.LowRange, Value.HighRange));end;end; function TIPEdit.GetField(Index: Integer): Byte;beginif (Index>=0)and(Index<=3) then Result:=FFields[Index]else Result:=0;end; procedure TIPEdit.SetField(Index:Integer; B:Byte);beginif (FFields[Index] <> B)thenbeginFFields[Index]:=B;SetIPAddress;end;end; procedure TIPEdit.SetIPAddress;vari:LongWord;begini:=MAKEIPADDRESS(FFields[0], FFields[1], FFields[2], FFields[3]);SendMessage(Handle, IPM_SETADDRESS, 0, i);FIP:=i;end; procedure TIPEdit.SetIP(Value: LongWord);beginif (FIP <> Value) thenbeginFFields[0]:= First_IPAddress(Value);FFields[1]:= Second_IPAddress(Value);FFields[2]:= Third_IPAddress(Value);FFields[3]:= Fourth_IPAddress(Value);SetIPAddress;end;end; function TIPEdit.GetIP: LongWord;beginSendMessage(Handle, IPM_GETADDRESS, 0, Integer(@Result));end; procedure TIPEdit.WMSetFont(var Message: TWMSetFont);begin//不可以调用父控件的此方法//否则，控件不能正常工作end; procedure TIPEdit.WMNotifyFormat(var Message: TMessage);beginwith Message doResult := DefWindowProc(Handle, Msg, WParam, LParam);end; procedure TIPEdit.CNNotify(var Message: TWMNotify);varpNM: PNMIPAddress;beginwith (Message.NMHdr)^ dobegincase Code ofIPN_FIELDCHANGED:beginpNM:= PNMIPADDRESS(Message.NMHdr);if (pNM^.iField>=0)and(pNM^.iField<=3) thenFFields[pNM^.iField]:=pNM^.iValue;if Assigned(FOnFieldChange) thenFOnFieldChange(self, pNM^.iField, pNM^.iValue);end;end;end;end; procedure TIPEdit.CNCommand(var Message: TWMCommand);begincase Message.NotifyCode ofEN_CHANGE:beginif not FCreating thenif Assigned(FOnChange) then FOnChange(self);end;EN_KILLFOCUS: if Assigned(FOnExit) then FOnExit(self);EN_SETFOCUS: if Assigned(FOnEnter) then FOnEnter(self);end;end; //注册TIPEdit控件以及TAboutProperty属性编辑器procedure Register;beginRegisterComponents('Simon', [TIPEdit]);RegisterPropertyEditor(typeInfo(TAboutProperty),TIPEdit, 'ABOUT', TAboutProperty);end;end. 打印问题~! 各位兄弟近来看看 有谁用过QRDesign做报表，报表在打印过程中出现重复打印的问题，请高手指点，100分！ 请教 下 在 windows Vista/Win 7 下如何读取 BIOS 的内容？ form1中Exit1.text:='6', updown1.associate:=Edit1, 程序中不能动态改变Edit1.text 的内容！ 怎么知道在treeview中双击的是拿一个节点？ 是高手的进来！ 请问用flash控件做的播放器如何支持flashmx的文件呢？？？ 急!请教DELPHI中如何调用拨号函数?多谢!!! 使用C++Biulder4，怎样在一个新的工程中使用已开发好的旧form? 如何判断一个TEdit控件里用户输入的内容是一个实数型数据，而不是ascii字符或者一些汉字 奇怪为什么用Delphi的人比C++Builder多很多？
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货