VirtualStringTree MouseMove die Column ermitteln

[Hobbycoder]

Hi,

ich möchte gerne im OnMouseMove im VST die Column ermitteln, um dann einen anderen Cursor anzuzeigen.
Hat jemand eine Idee, wie ich an die gewünschte Information in dem Event komme?

[Aviator]

Hallo Hobbycoder,

ich würde dafür das OnGetCursor Event verwenden. Das ist genau für so etwas gemacht. Anbei mal ein Beispiel wie ich das gemacht habe. Das solltest du ja auf dich umbauen können.

Delphi-Quellcode:

procedure TfrmMain.vstGetCursor(Sender: TBaseVirtualTree; var Cursor: TCursor);
var
  vst: TVirtualStringTree;
  NodeData: PAppointment;
  MousePos: TPoint;
begin
  vst := Sender as TVirtualStringTree;
  if (Assigned(vst.HotNode)) then begin
    NodeData := vst.GetNodeData(vst.HotNode);
    MousePos := Mouse.CursorPos;
    if (vst.Header.Columns.ColumnFromPosition(vst.ScreenToClient(MousePos)) = 4) and
      (NodeData^.LinkAvailable)
    then begin
      Cursor := crHandPoint
    end else
      Cursor := crDefault;
  end;
end;

[Gollum]

Hallo,

wie wäre es mit GetHitTestInfoAt?

[Aviator]

Zitat von Gollum:

Hallo,

wie wäre es mit GetHitTestInfoAt?

Das kann man als Hilfe natürlich auch benutzen.

[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;