in textbox nur zahlen, enter, esc und tab zulassen

[lucius]

Hi Taladan,

Delphi-Quellcode:

procedure THaupt.Edit1Change(Sender: TObject);
var
  Key:Char;
  i:integer;
  s:string;
begin
// allow only numbers and backspace//
  s := '';
  for i:=1 to Length( TEdit(Sender).Text ) do
  begin
    Key := TEdit(Sender).Text[i];
    if not( Key in ['0'..'9', #8] ) then
      Key := #0
      else
      s := s + Key;
  end;
  TEdit(Sender).Text := s;
end;

MFG Lucius.