Dass ich es mir selber programmieren muss, damit hab ich schon gerechnet.
Ich hab auch schon eine Lösung.
Im OnkeyPress schreibe ich
Code:
with combobox1 do
if upcase(key) in ['A'..'Z','0'..'9',#32,'-'] then
Hint:=Hint+Key
else Hint:='';
und im OnChange
Code:
with combobox1 do
for I := 0 to Items.Count-1 do begin
s:=Items[i];
if pos(uppercase(hint),uppercase(s))>0 then begin
itemindex:=i;
break;
end;
end;
Das ist zwar nicht so elegant, aber es geht