Координаты Node в Virtual String Tree

[Dagmanor]

Добро всем дня. Подскажите пожалуйста возможно ли в Virtual String Tree определить координаты Node (нужны "Top" и "Left") относительно экрана, которая находится под мышью?
Delphi 7

[Stilet]

Не знаю как в этом компоненте, а в стандартном есть такое: TreeView.[Такой-то].DisplayRect(); Потом через TreeView.ClientToScreen() получить экранные координаты. Попробуй поищи такие же методы в твоем компоненте.

[Баламут]

Конечно есть

procedure TForm1.VT1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Node: PVirtualNode;
  Data: PNodeData;
  r: TRect;
  p: TPoint;
begin
  Node := VT1.GetNodeAt(x,y);
  Data := VT1.GetNodeData(Node);
  if Data = nil then Exit;

  r := VT1.GetDisplayRect(Node,0, false);
  p.X := r.Left;
  p.Y := r.Top;
  p := VT1.ClientToScreen(p);
  Label1.Caption := INtToStr(p.X);
  Label2.Caption := IntToStr(p.Y);
end;