DBGrid并在MouseWheel上强制DBMemo为SetFocus

时间:2013-04-24 16:43:34

标签: delphi mousewheel delphi-5

我在表单上有两个控件,TDBGrid和TDBMemo都链接到同一个DataSource。

当用户滚动DBGrid时,焦点会显示备忘录中字母的内容。都好。我收到有关烦恼的投诉,这实际上是用户失败问题,但我想围绕它进行编程。

用户单击网格然后将鼠标向下移动到备忘录但不单击它,然后滚动鼠标滚轮以向下滚动备忘录。而不是发生这种情况,网格仍然具有焦点,因此它向下滚动字母列表。如果用户首先单击备忘录,它将获得焦点,并且轮子将按预期工作。

我尝试添加

if memoLetter.Enabled then memoLetter.SetFocus;

在OnCellClick中,对于网格,但它使网格刷新并且看起来很糟糕。

那么,如何捕获鼠标滚轮事件并查看鼠标光标是否在备忘录上?如果是,那么给备忘录一个焦点,正常的轮滚动接管备忘录。

我在网上发现了一些MouseOver的东西但是效果不好。

由于

0 个答案:

没有答案