dblookupcombobox

[Bummi]

etwas hingebastelt wäre so etwas denkbar, wobei DBLookupComboBox1CloseUp auch noch sinnvoll behandelt werden sollte ..

Delphi-Quellcode:

procedure TForm5.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
        if Pos(AnsiUpperCase(FBoxSearchText),AnsiUpperCase(DBLookupComboBox1.text)) <> 1 then
            begin
            Showmessage(FBoxSearchText);
            // Satz einfügen
            end;
        FBoxSearchText := '';
        // gegf. etwas in der Art InfoLabel.Caption := '';
    end
  else
    begin
      FBoxSearchText := FBoxSearchText + Key;
      // gegf. etwas in der Art InfoLabel.Caption := FBoxSearchText;
    end;
end;