新手请教新建IP输入框package的问题

namucoo

在delphi中可以注册一个windows的标准IP输入控件来用，在lazarus里面如何移植呢？
代码如下
unit RIPEdit;


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('Samples', [TIPEdit]);
end;


{ TIPAddressEdit }


procedure TIPEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
InitCommonControl(ICC_INTERNET_CLASSES);
CreateSubClass(Params, WC_IPADDRESS);
end;


end.