Проблема: есть 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?