VPF::обработка сообщения WM_MOUSEWHEEL - Форум программистов

welt

Дата 18.4.2008, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

создаю окно на winapi.
хочу обработать событие движения колесика мыши.
Пишу код.

Код



var MM:tagMSG;
.................

function WindowProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): longint; stdcall; //îáðàáîò÷èê ñîîáùåíèé
begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
case Msg of
 WM_MOUSEWHEEL:
  begin
    if lParam>0 then
    MessageBox(0,'Вверх', '/|\',MB_OK)   else
 
    MessageBox(0,'Вниз', '\|/',MB_OK)   ;

  end;
....................

Работает неверно. где-то ошибка значит. Буду рад, если подскажете.

Это сообщение отредактировал(а) welt - 18.4.2008, 00:51

volvo877

Дата 18.4.2008, 01:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 5
Всего: 116

Может, лучше так:

Код

function WndMessageProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): UINT; stdcall;
begin
  Result := 0;
  case Msg of

    WM_MOUSEWHEEL:
    begin
      if lParam>0 then MessageBox(0,'Вверх', '/|\',MB_OK)
      else MessageBox(0,'Вниз', '\|/',MB_OK);
    end;

    ...

  else
    // Только здесь вызываешь обработчик по умолчанию, а не в самом начале
    Result := DefWindowProc(hwnd, msg, wparam, lparam);

  end;

?

Хотя вешать MessageBox-ы на прокрутку - как-то не очень...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »