editkeypress

[krauZe]

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

 

[CSANecromancer]

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;