TreeView - eliminando os hints

// Eliminando os hints de uma treeview

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetWindowLong(TreeView1.Handle, GWL_STYLE,

  GetWindowLong(TreeView1.Handle,GWL_STYLE) or $80);

end;

// para mostrar os hints novamente

SetWindowLong(TreeView1.Handle, GWL_STYLE,

GetWindowLong(TreeView1.Handle,GWL_STYLE) and not $80);