Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Событие на прокрутку колесика мыши, WM_??? =))) 
:(
    Опции темы
Snowy
Дата 22.2.2006, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Сам код какой-то кривой.
Странно, что вообще хоть что-то работает.
PM MAIL   Вверх
DragonFire
Дата 22.2.2006, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
В смысле? Что в нем кривого?


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
Snowy
Дата 22.2.2006, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
У меня вообще не заработал.
PM MAIL   Вверх
DragonFire
Дата 22.2.2006, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Это просто код из библиотеки...
Для приложения он буден другим...


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
mes
Дата 26.2.2006, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


любитель
****


Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: 2
Всего: 250
У меня была подобная проблема. При событии программа не распозновала отрицателный поворот колеса. У тебя похоже таже проблема. Дело в типе. Delta должна быт' smallint.
кроме того непонятно зачем отнимать WHEEL_DELTA на неё надо делить.

Вот смотри:
Код



var zDelta:integer;
....

  WM_MOUSEWHEEL: begin
                       zDelta := smallint (hiword(wParam)) div WHEEL_DELTA; {Кол-во щелчков колесика}

                       zScroll:=zScroll+zDelta ;  {положителное прибавит, отрицательное отнимет}
                   
                      if zScroll>0 then zScroll:=0;
                      if zScroll<-15 then zScroll:=-15
                  end;






Это сообщение отредактировал(а) mes - 26.2.2006, 20:47


--------------------
http://opendots.net
PM MAIL WWW   Вверх
DragonFire
Дата 26.2.2006, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Всеравно не пашет...
У меня почему то всевремя lParam равен 0 smile


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
mes
Дата 26.2.2006, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


любитель
****


Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: 2
Всего: 250
Цитата(DragonFire @ 26.2.2006, 11:37 Найти цитируемый пост)
Всеравно не пашет...

Как именно не пашет?
Насколько я понял, событие у тебя есть но параметры нулевые.
Или как?




--------------------
http://opendots.net
PM MAIL WWW   Вверх
mes
Дата 26.2.2006, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


любитель
****


Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: 2
Всего: 250
Цитата(DragonFire @ 26.2.2006, 11:37 Найти цитируемый пост)
У меня почему то всевремя lParam равен 0


может wParam равен 0 ?

попробуй так (вместо Word поставь WParam):
Код

function WindowProc (Window : HWnd; Message, WParam : WParam; LParam : LParam) : LongInt; stdcall;



--------------------
http://opendots.net
PM MAIL WWW   Вверх
DragonFire
Дата 26.2.2006, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Неа, компу пофигу smile


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
Snowy
Дата 26.2.2006, 19:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Код
program wmmwheel;

uses
  Windows, Messages;

var
  wClass:     TWndClass;
  hAppHandle: HWND;
  wMsg:       TMSG;
  zScroll:    integer = 1024;

function IntToStr(i: integer): string;
begin
  str(i, result);
end;

function WndMessageProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
begin
 Result := 0;
  case Msg of
    WM_DESTROY:
      PostQuitMessage(0);
    WM_MOUSEWHEEL:
      begin
        if HIWORD(WParam)-WHEEL_DELTA > 0 then ZScroll:=ZScroll-1
        else ZScroll:=ZScroll+1;
        SendMessage(hWnd, WM_SETTEXT, 0, integer(PChar(IntToStr(ZScroll))));
      end;
  else
    result := DefWindowProc(hWnd, Msg, wParam, lParam);
  end;
end;

begin
  wClass.hInstance := hInstance;
  with wClass do begin
    style         := 0;
    hIcon         := 0;
    lpfnWndProc   := @WndMessageProc;
    hbrBackground := COLOR_BTNFACE + 1;
    lpszClassName := 'MYCLASS';
    hCursor       := LoadCursor(0,IDC_ARROW);
    cbClsExtra    := 0;
    cbWndExtra    := 0;
    lpszMenuName  := '';
  end;
  RegisterClass(wClass);
  hAppHandle := CreateWindow(wClass.lpszClassName, nil,
   WS_OVERLAPPEDWINDOW or WS_VISIBLE, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),
    320, 200, 0, 0, hInstance, nil);

  if hAppHandle = 0 then begin
   UnRegisterClass(wClass.lpszClassName, hInstance);
   Exit;
  end;
  ShowWindow(hAppHandle, SW_SHOWNORMAL);
  UpdateWindow(hAppHandle);

  while GetMessage(wMsg,0,0,0) do begin
    TranslateMessage(wMsg);
    DispatchMessage(wMsg);
  end;

end.

Добавлено @ 19:41
Приаттачиваю откомпилированный exe.
Он ничего не делает, кроме реакции на колесо мыши.

Присоединённый файл ( Кол-во скачиваний: 17 )
Присоединённый файл  wmmwheel.zip 2,94 Kb
PM MAIL   Вверх
mes
Дата 26.2.2006, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


любитель
****


Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: 2
Всего: 250
Цитата(DragonFire @ 26.2.2006, 11:37 Найти цитируемый пост)
Всеравно не пашет...

в моём коде была опечатка: вместо HiWord, я написал hi. ( Исправил в коде).


Цитата(Snowy @ 26.2.2006, 19:40 Найти цитируемый пост)
  if HIWORD(WParam)-WHEEL_DELTA > 0 then ZScroll:=ZScroll-1
        else ZScroll:=ZScroll+1;


не согласен с этой строчкой, так как подобное применение противоречит "замыслу" параметра Wheel_Delta.
Должен признать, что такой код работает, но не могу согласится с тем , что он работает и будет работат правильно.
Wheel_Delta введена для обратной совместимости, когда мышки будут за одно сообщение передавать не один шелчок, а группу.

WParam в зависимости от направления должен быть равен Wheel_delta или -Wheel_Delta (120 или -120). Однако "проверив" значения WParam мы обнаруживаем, что он равен либо 120 или 65416. Причина етого недоразумения в несоответствии типов.
Word (65416) = 65416
Integer(65416) = 65416
Smallint(65416)=-120 !

Обратили внимание что при преобразовании в тип Integer,( который может принимать отрицательные значения), значение остается положительным, а преобразовании в тип SmallInt даёт то, что мы утеряли. smile
Добавлено @ 21:30
Еше хотелось бы сказать по поводу сообщениa WM_MOUSEWHEEL:
его может получат только активное окно. поэтому используйте SetFocus.



--------------------
http://opendots.net
PM MAIL WWW   Вверх
Snowy
Дата 26.2.2006, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484
Цитата(mes @ 26.2.2006, 21:28 Найти цитируемый пост)
не согласен с этой строчкой, так как подобное применение противоречит "замыслу" параметра Wheel_Delta.
Согласен. Но такое применение - стандартная практика.
Хотя, конечно, если все делать по честному, то код будет выглядеть так:
Код

program wmmwheel;
uses    
  Windows, Messages;    
var    
  wClass:     TWndClass;    
  hAppHandle: HWND;    
  wMsg:       TMSG;    
  zScroll:    integer = 1024;    
function IntToStr(i: integer): string;    
begin    
  str(i, result);    
end;    
function WndMessageProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;    
begin    
 Result := 0;    
  case Msg of    
    WM_DESTROY:    
      PostQuitMessage(0);    
    WM_MOUSEWHEEL:    
      begin    
        ZScroll:=ZScroll+(shortint(HIWORD(WParam)) div WHEEL_DELTA);
        SendMessage(hWnd, WM_SETTEXT, 0, integer(PChar(IntToStr(ZScroll))));
      end;    
  else    
    result := DefWindowProc(hWnd, Msg, wParam, lParam);    
  end;    
end;    
begin    
  wClass.hInstance := hInstance;    
  with wClass do begin    
    style         := 0;    
    hIcon         := 0;    
    lpfnWndProc   := @WndMessageProc;    
    hbrBackground := COLOR_BTNFACE + 1;    
    lpszClassName := 'MYCLASS';    
    hCursor       := LoadCursor(0,IDC_ARROW);    
    cbClsExtra    := 0;    
    cbWndExtra    := 0;    
    lpszMenuName  := '';    
  end;    
  RegisterClass(wClass);    
  hAppHandle := CreateWindow(wClass.lpszClassName, nil,    
   WS_OVERLAPPEDWINDOW or WS_VISIBLE, Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),    
    320, 200, 0, 0, hInstance, nil);    
  if hAppHandle = 0 then begin    
   UnRegisterClass(wClass.lpszClassName, hInstance);    
   Exit;    
  end;    
  ShowWindow(hAppHandle, SW_SHOWNORMAL);    
  UpdateWindow(hAppHandle);    
  while GetMessage(wMsg,0,0,0) do begin    
    TranslateMessage(wMsg);    
    DispatchMessage(wMsg);    
  end;    
end.

Цитата(mes @ 26.2.2006, 21:28 Найти цитируемый пост)
когда мышки будут за одно сообщение передавать не один шелчок, а группу.
Насколько я помню, изначально предполагалось, что разница будет давать кол-во строк, которые нужно прокручивать за один ход колеса. Но мне как-то не попадались ситуации, чтобы значение отличалось от 120. Может в 98-х так и есть...
PM MAIL   Вверх
mes
Дата 26.2.2006, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


любитель
****


Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: 2
Всего: 250
Цитата(Snowy @ 26.2.2006, 22:43 Найти цитируемый пост)
Но такое применение - стандартная практика.

smile
Цитата(Snowy @ 26.2.2006, 22:43 Найти цитируемый пост)
Хотя, конечно, если все делать по честному, то код будет выглядеть так:

smile
Цитата(Snowy @ 26.2.2006, 22:43 Найти цитируемый пост)
Насколько я помню, изначально предполагалось, что разница будет давать кол-во строк, которые нужно прокручивать за один ход колеса. Но мне как-то не попадались ситуации, чтобы значение отличалось от 120. Может в 98-х так и есть

Не могу точно сказать, но вроде предусмотрено для более чуствител'ных мышек, у которых несколько шелчков соответствуют
одному щелчку колесика обычной мышки.



--------------------
http://opendots.net
PM MAIL WWW   Вверх
DragonFire
Дата 28.2.2006, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
mes
Я еще раз все попробовал, но всеравно не пашет - как ни крути в любом случае значение ZScroll только увеличивается...
Snowy
Архив скачал - ща буду разбиратся...


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
DragonFire
Дата 28.2.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Все, я понял!
Оба кода рабочие, тока везде надо писать так:
Код

function WindowProc (Window : HWnd; Message, WParam : WParam; LParam : LParam) : LongInt; stdcall;

Все, отладил smile
Спасибо обоим большое smile


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1765 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.