Delphi ListView 提示闪烁

Question

当鼠标移动时，即使在同一行，提示也会一直闪烁。尝试设置双缓冲，但没有结果。也尝试将代码移动到鼠标事件但仍然相同http://delphi.about.com/od/delphitips2007/qt/listview_hints.htm

procedure TForm1.ListView2InfoTip(Sender: TObject; Item: TListItem;
  var InfoTip: string);
begin
      InfoTip := 'Gracz: ' + InfoTip + #13#10 + hintyStreamyObecne[Item.Index] ;
end;

我正在使用 Delphi XE5。 Listview 放在 PageControl 上。当我为 Application.HintPause 设置非常低的值并选中/取消选中复选框时，我可以在复选框上重现相同的提示闪烁。使用 Application.HintPause 的默认值对 listView 没有帮助。每次鼠标位置更改都会触发事件 ListView2InfoTip。有什么建议吗？

Answer 1

如果您使用的是 Delphi.About.com 的代码，我建议您进行下一个更改：

在那段代码中

li := ListView1.GetItemAt(pt.x, pt.y) ;

用于确定鼠标光标位于哪个项目上。

现在我要做的是创建一些全局变量，或者甚至更好地向 ListView 组件添加另一个字段，我将在其中存储对已显示提示的最后一个 ListItem 的引用。

然后我会添加一个简单的检查，看看上面代码得到的当前 ListItem 是否与我们存储在新变量/字段中的相同。如果不是，则触发显示提示，如果是，则直接退出程序。

var oli: TListItem; //Here we store reference to TListItem to which we shown hint last time

implementation

procedure TMyForm.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

...
begin
  ...
  li := ListView1.GetItemAt(pt.x, pt.y) ;    
  if oli = li then Exit
  else
    oli := li;
    //hint showing code
  end;
end;

此代码更改将确保仅当鼠标移到另一个项目上而不是每次鼠标移动时才会显示新提示。