Delphi-Quellcode:
procedure TDeineform.DeineVirtualTreeViewNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
var
Column: TVirtualTreeColumn;
ColumnX, ColumnY: Integer;
begin
Column := Sender.Header.Columns[HitInfo.HitColumn];
ColumnX := HitInfo.HitPoint.X - Column.Left;
ColumnY := (HitInfo.HitPoint.Y + Sender.OffsetY) - (HitInfo.HitNode.Index * HitInfo.HitNode.TotalHeight);
Caption := 'HitColumn: ' + Integer(HitInfo.HitColumn).ToString + ' - X:' + ColumnX.ToString + ' - Y:' + ColumnY.ToString;
end;
Geht vielleicht noch eleganter, zumindest sehen die Ergebnisse einigermaßen stimmig aus.
Abweichungen wegen mit oder ohne Rand einer Zelle bitte berücksichtigen, falls vorhanden.