lv的hint显示效果不理想

[ko8kfhm6]

移动到另一个项目显示hint会有延迟，我的代码

procedure TfrmMain.lv1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  listitem: TListItem;
begin
  try
    listitem := lv1.GetItemAt(x,y);
    stat1.SimpleText := TCnItem(listitem.Data).Path;
  except
    stat1.SimpleText := '';
  end;
end;

[CS_DNisSB2B]

stat1是啥

[JPEXE]

没有上下文，没人看得懂。

[s11ss]

你说的hint就是这个SimpleText吗？没道理啊！

[ko8kfhm6]

哦，代码贴错了，是我因为hint显示不理想，改到状态栏去显示了。
总之是hint显示第一个没问题，移动到另一个item的时候就会有延迟。

[kaikai_kk]

hint默认是500ms; 自己改合适的吧 Application.HintPause:=50;