VirtualStringTree MouseMove die Column ermitteln

[Hobbycoder]

Danke.

OnGetCursor hatte ich schon im Visier, allerdings wunderte ich mich über die dort fehlenden Parameter HitInfo, wie bei OnGetPopupMenu.

Und GetHitTestInfoAT war mir bis dato unbekannt.

Danke für die Hilfe.

So hab ich es jetzt gemacht:

Delphi-Quellcode:

procedure TForm1.vrtlstrngtrWunschlisteGetCursor(Sender: TBaseVirtualTree;
  var Cursor: TCursor);
var
  HitInfo: THitInfo;
begin
  if VST.Cursor<>crHourGlass then
  begin
    VST.GetHitTestInfoAt(
      VST.ScreenToClient(Mouse.CursorPos).X, 
      VST.ScreenToClient(Mouse.CursorPos).Y, 
      True, 
      HitInfo
    );
    if HitInfo.HitColumn=1 then
      VST.Cursor:=crHandPoint else
      VST.Cursor:=crDefault;
  end;
end;