VCL Delphi


            Title: How to disable the tooltips in a TTreeview
procedure TForm1.FormShow(Sender: TObject);
const
 TVS_NOTOOLTIPS = $0080;
begin
 SetWindowLong(Treeview1.Handle, GWL_STYLE,
 GetWindowLong(TreeView1.Handle, GWL_STYLE) xor TVS_NOTOOLTIPS);
end;