..Und das ganze z.B. ins OnExit des Editfelds:
Delphi-Quellcode:
IF Edit1.Text='' THEN Edit1.Text := '0';
IF StrToInt(Edit1.Text) < UntereGrenze THEN Edit1.Text := IntToStr(UntereGrenze);
IF StrToInt(Edit1.Text) > ObereGrenze THEN Edit1.Text := IntToStr(ObereGrenze);
oder ähnlich.. nur so als Denkanstoß
Oder andere Eingabe erzwingen statt obere Grenze automatisch setzen... (vgl. ibp's Posting &
SetFocus)
Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...