[Zorkov Igor]

Код:

procedure TForm1.VirtualStringTree1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  i, Column: DWORD;
  Node: PVirtualNode;
begin
  i:= 0;
  Node := (Sender as TVirtualStringTree).GetNodeAt(X, Y);
  for i := 0 to VirtualDrawTree1.Header.Columns.Count - 1 do
  begin
    if (X >= VirtualDrawTree1.GetDisplayRect(Node, i, False).Left) and (X <= VirtualDrawTree1.GetDisplayRect(Node, i, False).Right) then
    begin
      Column := i;
      Break;
    end;
  end;
  LeftPos:= (Sender as TVirtualStringTree).GetDisplayRect(Node, Column, False).Left;
  TopPos:= (Sender as TVirtualStringTree).GetDisplayRect(Node, Column, False).Top;