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;

変数はVTTVirtualStringTree オブジェクトです。