Edit mit allen Zeichen außer Tasten wie Tab/Enter usw.

[silentAMD]

Hi,
ich habe hier der quellcode für eine listview:

Delphi-Quellcode:

procedure TWinMain.list_filesKeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['a'..'z', '0'..'9']) then
    Key := #0
  else
  begin
    ed_search.Clear;
    ed_search.SetFocus;
    ed_search.Text := ed_search.Text+Key;
    ed_search.SelStart := length(ed_search.Text);
  end;
end;

mit dem code wird bezweckt, dass bei kleinbuchstaben-/zahleneingabe ins listview in ein editfeld gesprungen wird und der inhalt der listview gefiltert wird (also nach der eingegebenen zeichenkette im editfeld mit ansipos die einträge der listview neu eingelesen werden). nun habe ich das problem, dass ö, ä, ß und so weiter nicht berücksichtigt werden.

gibt es eine lösung, die alle tasten in der listview, außer enter, tab, umschalt, strg und so weiter zulässt?

PLEASE HELP!!

EDIT: wäre dies hier eine gute lösung oder werden da einige zeichen nicht berücksichtigt?

Delphi-Quellcode:

  if(key > #13) then
  begin
    ed_search.Clear;
    ed_search.SetFocus;
    ed_search.Text := ed_search.Text+Key;
    ed_search.SelStart := length(ed_search.Text);
  end;