DBLookupCombobox

[Uwe Raabe]

Du kannst dich in den KeyPress-Events der ComboBox einklinken und die interne Suchfunktion austricksen:

Delphi-Quellcode:

type
  TDBLookupControlHelper = class helper for TDBLookupControl
  public
    procedure CheckSearchPrefix(const Prefix: string);
  end;

procedure TDBLookupControlHelper.CheckSearchPrefix(const Prefix: string);
var
  Ch: Char;
begin
  if Length(SearchText) < Length(Prefix) then begin
    SearchText := '';
    for Ch in Prefix do
      ProcessSearchKey(Ch);
  end;
end;

procedure TForm181.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  DBLookupComboBox1.CheckSearchPrefix('22X');
end;