delphi - 悬停图像时 TVirtualStringTree 更改光标

Question

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

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

Answer 1

在树的OnMouseMove事件中检查光标是否在“图标区域”上并相应地更改光标。就像是

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 对象。