Backspace Taste im OnKeyPress Ereigniss abfangen

[Flips]

Hi.

1.)
Machs doch mit

Delphi-Quellcode:

if key in [0..9,#08] then
  //...
else
  begin
    Key := #0;
    Beep;
  end;

2.)
Machs mit trunc:

Delphi-Quellcode:

zahl := 123.456789;   //Alsbeispiel
zahl := zahl * 1000;  //1000 = 3 Stellen
zahl := trunc(zahl);  //Alles abschneiden
zahl := zahl / 1000;  //1000 = 3 Stellen