Delphi-PRAXiS - Delphi Nur Ziffern in Edit

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Object-Pascal / Delphi-Language (https://www.delphipraxis.net/35-library-object-pascal-delphi-language/)

- - Delphi Nur Ziffern in Edit (https://www.delphipraxis.net/2631-nur-ziffern-edit.html)

Luckie

30. Jan 2003 23:31

Nur Ziffern in Edit

Delphi-Quellcode:

			procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  If not(key in [#48..#57,#8])

    then key := #0;

end;

(#8 ist Backspace)

Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr.