TVirtualStringTree 在悬停图像时更改光标

Question

当我从节点悬停 ImageIndex 时如何更改光标

基本上我在节点上显示了一个附加图标，我想让用户了解，通过更改光标，他可以通过按下文件来下载文件。

Answer 1

在树的 OnMouseMove 事件中检查光标是否在 "icon area" 上并相应地更改光标。像

procedure TForm1.VTMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var HitInfo: THitInfo;
begin
  VT.GetHitTestInfoAt(X, Y, True, HitInfo);
  if(hiOnNormalIcon in HitInfo.HitPositions)then begin
     VT.Cursor := crHandPoint;
  end else begin
     VT.Cursor := crDefault;
  end;
end;

VT 变量是您的 TVirtualStringTree 对象。

TVirtualStringTree 在悬停图像时更改光标

TVirtualStringTree change cursor when hoverering an image

delphi

virtualtreeview

tvirtualstringtree