![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
|||
|
|||
![]() Пробую так
Код:
procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin with ScrollBox1 do if ((VertScrollBar.Position <= 4) OR (VertScrollBar.Position = VertScrollBar.Range - ClientHeight)) then ShowMessage(Inttostr(VertScrollBar.Position)); end; |