Einzelnen Beitrag anzeigen

Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#5

Re: Zahleneingabe erzwingen

  Alt 20. Okt 2004, 10:57
..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 & Delphi-Referenz durchsuchenSetFocus)

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...
  Mit Zitat antworten Zitat