ScrollBar стоит на месте, не получается заставить двигатся

Доброго времени суток.
Проблема такая:
наследуюсь от TCustomControl, прописываю:

procedure TMy.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style + WS_HSCROLL + WS_VSCROLL;
end;

ScrollBar-ы появляются выставляю у них максимальную позицию:

  SetScrollRange(Self.Handle, SB_HORZ, 0, 10, True);
  SetScrollRange(Self.Handle, SB_VERT, 0, 10, True);

Но при клике по скролам они не двигаются, а стоят на месте, если делаю:
SetScrollPos(Self.Handle, SB_HORZ, 8, True);
то скрол смещается на нужную позицию. Вопрос: как заставить скролы работать в обычном режиме?

scorpyx

Доброго времени суток. Проблема такая: ... Вопрос: как заставить скролы работать в обычном режиме?

Ответ: посмотреть как это сделано в классе TScrollingWinControl (модуль Forms).

спасибо разобрался