uses CommCtrl;
procedure tNoScrollbarsTreeview.createparams(var params: TCreateParams);
begin
 inherited;
 params.style := params.style or TVS_NOSCROLL;
end;