Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
272 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

AW: TComboBox soll mitten drin im String Ergebnis liefern...

  Alt 26. Aug 2012, 21:29
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
  Mit Zitat antworten Zitat