怎么在AdvStringGrid单元格加模糊搜索? (现在delphi没人了?)

我使用了AdvStringGrid的edGridDropDown
procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
begin
if ACol = 1 then
  begin
  aEditor := edGridDropDown;
  end;
end;


在KeyPress
procedure TForm1.AdvStringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
AdvStringGrid1.GridDropDown.ShowDropDown;
end;

这样只能输入一次,没办法连续输入啊
比如a->ab
像下面这样的

我觉得应该判断下拉是否已经打开了。
可能说得不对，也就当帮顶吧。。

你这应该是焦点被夺走了，你看看它的demo