unit DyKOLutils7;
interface
uses Windows, Messages, KOL;

type
 PIPEdit = ^TIPEdit;
 TIPEdit = object(TControl)
 private
   FIP: cardinal;
//    FHandle: THandle;
//    FFont: Integer;
   function GetText: AnsiString;
   procedure SetText(const Value: AnsiString);
 public
   constructor Create(AParent: PControl; Rect: TRect);
   property Text: AnsiString read GetText write SetText;
 end;

type
 SunB = packed record
   s_b1, s_b2, s_b3, s_b4: char;
 end;

 SunW = packed record
   s_w1, s_w2: Word;
 end;

 PInAddr = ^TInAddr;
 in_addr = record
   case integer of
     0: (S_un_b: SunB);
     1: (S_un_w: SunW);
     2: (S_addr: Longint);
 end;
 TInAddr = in_addr;

function inet_addr(s: PKOLChar): Integer; external 'wsock32.dll' name 'inet_addr';

function NewIPEdit(AParent: PControl; Rect: TRect): PIPEdit;

implementation

{ TIPEdit }
constructor TIPEdit.Create(AParent: PControl; Rect: TRect);
var
 hz: pointer;
begin
//  kol.InitCommonControls;
//  kol.DoInitCommonControls(ICC_INTERNET_CLASSES);

 FHandle := kol.CreateWindowEx( WS_EX_CLIENTEDGE, 'SysIPAddress32', nil, WS_CHILD or WS_CLIPCHILDREN
   or WS_VISIBLE or WS_TABSTOP,
   0,0,140,22, AParent.Handle, 0, hInstance, hz);

//  SendMessage( FHandle, WM_SETFONT, AParent.Font.Handle, 0);//
 //Text := '127.0.0.1';
end;

function IPint2str(x: Cardinal): Ansistring;
begin
 Result := Int2Str((x shr 24)and $FF) + '.' + Int2Str((x shr 16)and $FF) + '.' +
   Int2Str((x shr 8)and $FF) + '.' + Int2Str(x and $FF);
end;

function MAKEIPADDRESS(b1, b2, b3, b4: Cardinal): LPARAM;
begin
 Result := (b1 shl 24) or (b2 shl 16) or (b3 shl 8) or b4;
end;

function TIPEdit.GetText: AnsiString;
begin
 SendMessage( FHandle, WM_USER+102, 0, integer(PCardinal(@FIP)));
 Result := IPint2str(FIP);
end;

procedure TIPEdit.SetText(const Value: AnsiString);
var
 Tmp: TInAddr;
begin
 Tmp.S_addr := inet_addr( PAnsiChar(Value));
 if Tmp.S_addr = -1{INADDR_NONE} then Exit;
 with Tmp.S_un_b do
   FIP := MakeIPAddress( Cardinal(s_b1), Cardinal(s_b2), Cardinal(s_b3), Cardinal(s_b4));
 SendMessage( FHandle, WM_USER+101{IPM_SETADDRESS}, 0, FIP);
end;

function NewIPEdit(AParent: PControl; Rect: TRect): PIPEdit;
begin
 New(Result, Create(AParent, Rect));
end;

end.

type
 PIPEdit = ^TIPEdit;
 TIPEdit = object(TControl)
 private
   FIP: Integer;
 public
   destructor Destroy; virtual;
 end;
...
function NewIPEdit(AParent: PControl; Left, Top, Width, Height: Longint): PIPEdit;
begin
 New(Result, Create);
 Result.FHandle := CreateWindow( WC_IPADDRESS, nil, WS_CHILD or WS_VISIBLE, Left, Top, Width, Height, AParent.Handle, 0, hInstance, nil);
end;