Форум программистов CodeGuru
27 Апрель 2018, 12:35:11 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: VK_TAB: приходит лишь сообщение об отпускании клавиши ( Message.lParam < 0)  (Прочитано 16194 раз)
0 Пользователей и 1 Гость смотрят эту тему.
malor
Интересующийся
**
Офлайн Офлайн

Сообщений: 21


Просмотр профиля
« : 12 Август 2011, 12:46:11 »


Почему про нажатие клавиши не приходит сообщения? Т.е. с Message.lParam большим нуля.
Код:
procedure TForm1.Wndproc(var Message: TMessage);
var
    strLog: AnsiString;
begin
  case Message.Msg of
    WM_KEYDOWN, WM_SYSKEYDOWN, WM_SYSKEYUP, WM_KEYUP:
    begin
      strLog := 'wParam: ' + IntToStr(Message.wParam) +
                ' lParam: ' + IntToStr(Message.lParam);
    end;
  else
    inherited;
  end;
end;

Delphi XE
« Последнее редактирование: 12 Август 2011, 12:48:05 от malor » Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!