Eingabe von Integerwerten in TEdit, TStringgrid, etc.

[Meflin]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(sender: TObject; var key: Char);
begin
  if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;

so ging das dann