Hallo liebe Member..

ich suche nen Quellcode, damit ich in ein edit Feld keine Buchstaben eingeben kann.
also das da gar nix passiert wenn der curser im editfeld ist und ich nen buchstabe drück!
ansonsten kommt ja beim berechnen drücken sone fehlermeldung

Kumpel gab mir als tipp editkeypress

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   if ((Key >= 'a') and (Key <= 'z')) or      ((Key >= 'A') and (Key <= 'Z')) or      ((Key = 'ä') or       (Key = 'ö') or       (Key = 'ü') or       (Key = 'Ä') or       (Key = 'Ö') or       (Key = 'Ü') or       (Key = 'ß')) then     Key := Char(0); end;