Autocomplete bei ComboBox

[toms]

Hi,


Meinst du so was?

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  oldpos: Integer;
  item: Integer;
begin
  with Sender as TComboBox do begin
    oldpos := SelStart;
    item := Perform(CB_FINDSTRING, -1,
                     lParam(PChar(Text)));
    if item >= 0 then
    begin
      OnChange := nil;
      text := Items[item];
      SelStart := oldpos;
      SelLength := GetTextLen - SelStart;
      OnChange := ComboBox1Change;
    end;
  end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
  oldlen: Integer;
begin
  if Key = #8 then
    with Sender as TComboBox do
    begin
      oldlen := SelLength;
      if SelStart > 0 then
      begin
        SelStart := SelStart - 1;
        SelLength := oldlen + 1;
      end;
    end;
end;