将鼠标悬停在dbgrid中时Delphi出现提示

Question

如何操作，当我们将鼠标光标悬停在dbgrid中时会发生什么，如果该字段具有所需的值，是否会出现提示？

if qry1.fieldbyname('PASSENGER_TYPE').asstring = 'INF' then
  dbgrd1.Hint := 'младенец';

在ShowHint = True中创建的dbgrid属性中进行了翻录。所有人都获得了，但是当没有价值时，当我在dbgrid中引起光标时，我是如何指导价值本身的？

Answer 1

自定义任何控件提示的最佳方法是：

1. 为TApplication(Events).OnShowHint事件分配事件处理程序，该事件具有HintStr和HintInfo参数，您可以根据需要自定义。

2. 将控件本身子类化为拦截CM_HINTSHOW消息。 LPARAM将是指向THintInfo的指针，您可以根据需要进行自定义。