Editfeld mit maximaler Eingabemenge

[Taladan]

Hallo.
Ich möchte ein Editfeld als Integer-Only verwenden. Ist ja so weit kein Problem.

Delphi-Quellcode:

  if not (Key in ['0'..'9', #8, #13]) then Key := #0;
    If Edit1.Text <> '' then begin
      if Key = #13 then Auswahl(StrToInt(Edit3.Text)-1);
    end;

Nun hab ich aber das Problem, der Eingabewert darf nicht darf aber nicht eine gewisse Menge die sich später durch die Anzahl der Daten ermittelt, nicht überschreiten. Sobald der Nutzer zu viel eingibt, soll die Anzeige auf den Maximalwert springen. Leider bekomme ich das nicht wirklich hin...

[SirThornberry]

ich würde dir empfehlen das onChange zu verwenden da sonst mit Copy&Paste auch buchstaben eingefügt werden können. Dort kannst du auch wenn der Wert das maximum überschreitet einfach einen neuen Wert setzen.

[WoGe]

Hi,

wie wärs mal mit nem ganz anderen Ansatz:

Delphi-Quellcode:

try
  aInt := StrToInt(edit1.text);
except 
  aInt := 0;
end;
aInt := Min(aInt,myMax);
edit1.text:= IntToStr(aInt);

mfg
wo

[Sharky]

Hai Taladan,

das ist jetzt zwar keine Antwort auf deine Frage ;-) aber warum verwendest Du nicht einfach ein TSpinEdit?