禁止TreeView的ToolTip

procedure TForm1.FormShow(Sender: TObject);
const
  TVS_NOTOOLTIPS = $0080;
begin
  SetWindowLong(Treeview1.Handle, GWL_STYLE, GetWindowLong(Treeview1.Handle,
    GWL_STYLE) xor TVS_NOTOOLTIPS);
end;