|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Tedit überprüfen auf Zahlen
28. Nov 2005, 16:22
Delphi-Quellcode:
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
// allow only numbers and backspace
if not( Key in ['0'..'9', #8] ) then
Key := #0;
end;
Die Such hätte dich auch weiter gebracht ( vermutlich schneller  ).
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|