How to disable the TreeView Hint

procedure HideTreeViewHint(hTreeView: THandle; bHide: bool = true);
begin
if bHide then
begin // Hide the Hint.
  SetWindowLong(hTreeView, GWL_STYLE,
  GetWindowLong(hTreeView,GWL_STYLE) or $80);
end else
begin // Show the Hint.
  SetWindowLong(hTreeView, GWL_STYLE,
  GetWindowLong(hTreeView,GWL_STYLE) and not $80);
end;
end;


Example:

// To Hide;
procedure TForm.HideClick(Sender: TObject);
begin
  HideTreeViewHint(TreeView.Handle);
end;

// To Show
procedure TForm.HideClick(Sender: TObject);
begin
  HideTreeViewHint(TreeView.Handle, false);
end;