Backspace in KeyPress entfernt

[Nalincah]

Ich lass über KeyPress nur bestimmte Zeichen zu:

Delphi-Quellcode:

//------------------------------------------------------------------------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','a'..'z','A'..'Z','+','-','/','\']) then Key := #0;
end;

Leider kann ich keine Backspace mehr drücken um Zeichen zu löschen? Wie kann ich da ne ausnahme machen?? Backspace liefert mir kein anständiges Char zurück

[Nalincah]

Habs gefunden

Delphi-Quellcode:

//------------------------------------------------------------------------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9','a'..'z','A'..'Z','+','-','/','\',#0..#31]) then Key := #0;
end;

[Sharky]

Hai General2004,

nur als Info ;-) BackSpace hat den ASCII-Code 8. Du musst also nicht alle Zeichen von 0-31 zulassen. Einfach ,#0..#31 durch #8 ersetzen.