FMX: TreeViewItem ScrollToItem

[Christoph Schneider]

Ich möchte ein TreeViewItem in den sichtbaren Bereich scrollen. Leider fand ich dazu in der TTreeView keine geeignete Methode.

Meine eigene Lösung funktioniert offensichtlich auch nicht in allen Fällen, denn die Item.Position stimmt nicht immer.

Code:

procedure TfmxMain.MakeItemVisible(Item: TTreeViewItem);
begin
  trvMyTreeView.ViewportPosition :=
    TPointF.Create(min(Item.Position.X - trvSlideGroups.ClientWidth / 2, 0),
      min(Item.Position.Y - trvSlideGroups.ClientHeight / 2, 0));
end;

Hat jemand eine Idee, wie man dieses Problem lösen kann?