IP-Eingabe Komponente erstellen

[sakura]

Zitat von akira1983:

aber selbst das klappt nicht. kurz gesagt es ist meine allererste komponente...

Keine Grund zur Peinlichkeit

Dann lass mich Dir einerseits mein (noch nicht fertiges) Tutorial zur Erstellung von Komponenten ans Herz legen und andererseits, laß mich Dir einen kleinen Start geben

Delphi-Quellcode:

type
  TIPCheck = class(TCustomMaskEdit)
  private
    function GetIP: String;
    procedure SetIP(const Value: String);
  protected
  public
    constructor Create(AOwner: TComponent); override;

    property IP: String
        read GetIP
        write SetIP;
  end;

{ TIPCheck }

constructor TIPCheck.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  EditMask := '991.991.991.991;1; ';
end;

function TIPCheck.GetIP: String;
var
  I: Integer;
  Temp: String;
begin
  Temp := Text;
  Result := '';
  for I := 1 to Length(Temp) do
    if Temp[I] in ['0'..'9', '.'] then
      Result := Result + Temp[I];
end;

procedure TIPCheck.SetIP(const Value: String);
begin
  Text := Value;
end;

Und von hier einfach weiter machen - und natürlich wieder "hallo" sagen, wenn es zu Problemchen kommt

......