Delphi IP 控件源码

interface 
 
uses 
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls, CommCtrl, 
 StdCtrls; 
 
type 
 TIPEdit = class(TEdit) 
 private 
   { Private declarations } 
 protected 
   procedure CreateParams(var Params: TCreateParams); override; 
 public 
   { Public declarations } 
 published 
   { Published declarations } 
 end; 
 
procedure Register; 
 
implementation 
 
procedure Register; 
begin 
 RegisterComponents('Additional', [TIPEdit]); 
end; 
 
{ TIPAddressEdit } 
 
procedure TIPEdit.CreateParams(var Params: TCreateParams); 
begin 
 inherited CreateParams(Params); 
 InitCommonControl(ICC_INTERNET_CLASSES); 
 CreateSubClass(Params, WC_IPADDRESS); 
end; 
 
end.