Как отловить сообщения о прокрутке TScrollBar

Delphi , ОС и Железо , Сообщения Windows

Автор: Олег Кулабухов

Нижеприведенный пример передвигает второй ScrollBar на такое же количество едениц, на которое передвинет пользователь первый. Т.е. синхронизирует их.

type
{$IFDEF WIN32}
  WParameter = LongInt;
{$ELSE}
  WParameter = Word;
{$ENDIF}
  LParameter = LongInt;

  {Declare a variable to hold the window procedure we are replacing}
var
  OldWindowProc: Pointer;

function NewWindowProc(WindowHandle: hWnd;
  TheMessage: WParameter;
  ParamW: WParameter;
  ParamL: LParameter): LongInt
{$IFDEF WIN32} stdcall;
{$ELSE}; export;
{$ENDIF}
var
  TheRangeMin: integer;
  TheRangeMax: integer;
  TheRange: integer;
begin

  if TheMessage = WM_VSCROLL then
  begin
    {Get the min and max range of the horizontal scroll box}
    GetScrollRange(WindowHandle,
      SB_HORZ,
      TheRangeMin,
      TheRangeMax);
    {Get the vertical scroll box position}
    TheRange := GetScrollPos(WindowHandle,
      SB_VERT);
    {Make sure we wont exceed the range}
    if TheRange < TheRangeMin then
      TheRange := TheRangeMin
    else if TheRange > TheRangeMax then
      TheRange := TheRangeMax;
    {Set the horizontal scroll bar}
    SetScrollPos(WindowHandle,
      SB_HORZ,
      TheRange,
      true);
  end;

  if TheMessage = WM_HSCROLL then
  begin
    {Get the min and max range of the horizontal scroll box}
    GetScrollRange(WindowHandle,
      SB_VERT,
      TheRangeMin,
      TheRangeMax);
    {Get the horizontal scroll box position}
    TheRange := GetScrollPos(WindowHandle,
      SB_HORZ);
    {Make sure we wont exceed the range}
    if TheRange < TheRangeMin then
      TheRange := TheRangeMin
    else if TheRange > TheRangeMax then
      TheRange := TheRangeMax;
    {Set the vertical scroll bar}
    SetScrollPos(WindowHandle,
      SB_VERT,
      TheRange,
      true);
  end;

  { Call the old Window procedure to }
  { allow processing of the message. }
  NewWindowProc := CallWindowProc(OldWindowProc,
    WindowHandle,
    TheMessage,
    ParamW,
    ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Set the new window procedure for the control }
  { and remember the old window procedure. }
  OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle,
    GWL_WNDPROC,
    LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  { Set the window procedure back }
  { to the old window procedure. }
  SetWindowLong(ScrollBox1.Handle,
    GWL_WNDPROC,
    LongInt(OldWindowProc));
end;

Это фрагмент кода на языке Delphi, который синхронизирует два скроллбара (один вертикальный и один горизонтальный) в приложении Windows. Код заменяет оригинальную процедуру окна контрола на новую, которая перехватывает сообщения WM_VSCROLL и WM_HSCROLL.

Процесс работы следующий:

1. В обработчике события FormCreate, код устанавливает новый процессор окна для контрола, вызывая SetWindowLong с handle контрола, GWL_WNDPROC и адресом новой процедуры окна (@NewWindowProc).
2. Функция NewWindowProc вызывается всякий раз, когда получается сообщение WM_VSCROLL или WM_HSCROLL. Она проверяет, является ли это сообщение для вертикального или горизонтального скроллбара, и затем:
   • Для WM_VSCROLL, она получает диапазон горизонтального скроллбара, текущую позицию вертикального скроллбара, убеждается, что позиция не превышает диапазон, и устанавливает горизонтальный скроллбар в соответствие с вертикальным.
   • Для WM_HSCROLL, она делает то же самое, но для вертикального скроллбара и горизонтального.
3. Наконец, в обработчике события FormDestroy, код восстанавливает процессор окна обратно к оригинальному, вызывая SetWindowLong снова.

Автор, Олег Кулабухов, пытается синхронизировать два скроллбара так, чтобы при прокрутке одного из них другой также прокручивался соответствующим образом. Это может быть полезно в определенных ситуациях, когда вам нужно поддерживать согласованное представление или взаимодействие между двумя прокатными областями.

Некоторые потенциальные улучшения:

• Код довольно специфичен для контрола TScrollBox и может не работать с другими контролами, использующими другие процессоры окна.
• Логика синхронизации могла бы быть более robust, особенно при работе с краевыми случаями, такими как прокрутка к началу или концу скроллбара.
• Вам может понравиться использовать события вместо перехвата процессора окна. Это даст вам больше гибкости и сделает код более читаемым.

В целом, это интересный пример, как можно перехватывать и манипулировать сообщениями Windows в программировании на Delphi.

Обратите внимание на статью, в которой автор предлагает синхронизировать скроллинг двух элементов TScrollBar, используя WINAPI и SetWindowLong для замены стандартного процедуры окна.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сообщения Windows ::