[user686]

Проблема: есть TTreeView с отключенными собственными скроллбарами (так надо). Скроллбары отключены через CreateParams:

PHP код:

procedure TSearchTV.CreateParams(var Params: TCreateParams);
begin
  inherited;

  params.Style:=params.Style or TVS_NOSCROLL;
end; 


Это единственный найденный способ полного отключения скроллбаров у TTreeView. ShowScrollBar делает это только временно, а SetWindowLong вообще не работает.

Необходимо реализовать скроллинг через внешний TScrollBar. Но тут столкнулся с проблемой: со стилем TVS_NOSCROLL у TTreeview не только отключаются скроллбары, он вообще перестает скроллиться, т. е. при попытке изменить TopItem ничего не происходит и TopItem остается прежним.

Кто-нибудь знает как перманентно отключить встроенные скроллбары у TTreeView и при этом заставить его скроллиться через внешний TScrollBar?