edit 和dbgrideh同进获和焦点

如同所示,我在edit1的onchange事件中模糊查找符合edit.text的纪录行,我目前是找到相应纪录行再回车dbgrideh1.setfocs(edit失去焦点,要想再过滤就要选中)再下移找到纪录再回车返加参数,但我发现有的软件找到相应纪录行后不要回车直接下移(edit没有失去焦点)如果不符后不用再选中edit而是edit一直在选中状态,照样dbgrideh也在选中状态,这样很方便,输入的话edit照样可以,下移的话找到纪录前edit一直在选中状态,如何实现

[解决办法]

在EDIT的事件中控制ADOQuery
例如：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_Up then ADOQuery1.Prior;;
if key = VK_DOWN then ADOQuery1.Next;
end;
[解决办法]
对，移动TDBGrid.DataSource.DataSet.Next，不要转换焦点