TTMSFMXTreeview Hint with long node text

FMX TMS FMX UI Pack
1

Hi,


I have a TTMSFMXTreeview with a horizontal scrollbar.
Some of the node texts are too long to show.

Is it possible to show a hint when the user hovers over a node which is only partly visible ?
e.g. in the MouseOver or so ?

TIA
2

I already found out.


procedure TForm1.tvMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
  node : TTMSFMXTreeViewVirtualNode;
begin
  node := tv.XYToNode(X, Y);

  if Assigned(node) then
    tv.Hint := node.Text[0];
end;

However the hint doesn't get repainted when I move the mouse from 1 node to another.
I have to "leave" the treeview and enter it again to show it.


3

Fixed the repaint as well.
You may close this topic (I entered it a bit premature).


Solution:

procedure TForm1.tvMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
  node: TTMSFMXTreeViewVirtualNode;
begin
  node := tv.XYToNode(X, Y);

  if not Assigned(node) then
    Exit;

  if node = FLastHintNode then
    Exit;

  Application.CancelHint;

  FLastHintNode := node;
  tv.Hint := node.Text[0];
end;