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;