簡単

uses
  CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
var
  style: LongInt;
begin
  style := GetWindowLong(TreeView1.Handle,GWL_STYLE);
  SetWindowLong(TreeView1.Handle, GWL_STYLE, style or TVS_NOSCROLL);
end;