ScroolBox не корректно работает скролл, почему?

24.11.2011, 08:33. **Показов** 1267. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Привет всем!!! Я здесь новичок и сразу к вам за ответом=)
Создаю программу, работаю со SCROLLBOX , что сделал:
1-сделал чтобы скроллбокс реагирует на скроллинг мыши
чего не могу понять:
когда опускаю полностью скроллингом содержимое вниз и потом поднимаю так же скроллингом вверх, то как правило верхняя строчка остается вверху и я ее не вижу(это получается при условии что ползунок был опущен полностью вниз)
вопрос:
Уважаемые знатоки!!! как это исправить ? вот листинг(скролла)

Delphi

procedure TForm2.WMMOUSEWHEEL(var Msg: TMessage);
var
  zDelta: Integer;
begin
  inherited;
    if WindowFromPoint(Mouse.CursorPos) = ScrollBox1.Handle then
    begin
        if Msg.WParam < 0 then zDelta := -10 else zDelta := 10;
 
        with ScrollBox1 do
        begin
            if ((VertScrollBar.Position = 0) and
              (zDelta > 0)) or
              ((VertScrollBar.Position = VertScrollBar.Range - ClientHeight) and
              (zDelta < 0)) then Exit;
 
            ScrollBy(0, zDelta);
            VertScrollBar.Position := VertScrollBar.Position - zDelta;
        end;
        Exit;
    end;

За ранее огромное спасибо!!!!

Комментарий модератора

Используйте специальные теги форматирования кода!

14.12.2011, 08:12

че никто не знает?

	14.12.2011, 08:12