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