\t\t【原创】Ehlib系列文章之一：修正表格的Lookup下拉框的焦点小BUG。

序言：

       在Delphi众多的优秀表格中，如cxGrid、InfoPower、Ehlib、NextGrid、DBGrid、TopGrid等，选择了Ehlib作为项目开发的首选表格控件，其原因是Ehlib在功能、速度、稳定性、扩展性、复杂性等因素为最佳平衡点。用了近9年的Ehlib，多少也有一点亲身感受，无论经验多小，如果对读者有微薄的经验，能写出来，就不是憾事！

1、TRzTabSheet（Raize套件）之间切换，并没有焦点转换。如果两个TRzTabSheet都有TDBGridEh，其中一个TDBGridEh（A表格）的Lookup下拉框在DropDown中，当你切换到另外一个 TRzTabSheet时，你就会发现刚才A表格的Lookup下拉框不但并没有消失，而且点击还可以滚动，这不属于B表格的LookupLookup下拉框还在显示着，显然是错误！解决问题很简单，在TRzPageControl的OnChange事件中，设置当前TRzTabSheet里的TDBGridEh为SetFocus即可解决焦点转换。

2、还有一个错误，当Lookup下拉框在DropDown中，如果你点击了没有焦点的按钮（比如TToolbarButton）关闭窗口，会提示：找不到焦点的异常。跟踪代码，在单元DBGridEh下的方法，

procedure TDBGridInplaceEdit.CloseUp(Accept: Boolean);

找到最后一句：Parent.SetFocus;

改为：

if Parent.CanFocus then //先判断父对象是否可以聚焦

    Parent.SetFocus;