|
(Co-Admin)
Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
Turbo Delphi für Win32
|
Re: falsche Eingaben abfedern
1. Jan 2005, 17:39
Oder lass nur Zahlen im Edit zu:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in[#49..#58, #8]) then key := #0;
end;
|