Problem mit IP-Eingabefld

[himitsu]

erster Versuch:

Delphi-Quellcode:

uses CommCtrl;

type TIPEdit = class(TWinControl)
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TIPEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  CreateSubClass(Params, WC_IPADDRESS);
  with Params do
  begin
    if NewStyleControls and Ctl3D then
    begin
      Style := Style and not WS_BORDER;
      ExStyle := ExStyle or WS_EX_CLIENTEDGE;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  E: TIPEdit;
begin
  E := TIPEdit.Create(Self);
  E.Parent := Self;
  E.Left   := 8;
  E.Top    := 8;
  E.Width  := 100;
  E.Height := 21;
end;

fehlt noch ein schicker Constructor und ein Property+Getter/Setter und Clear für die IP
(den Code hab ich mir vom TEdit gemopst)