VK_TAB: приходит лишь сообщение об отпускании, клавиши ( Message.lParam < 0)

[malor]

Почему про нажатие клавиши не приходит сообщения? Т.е. с Message.lParam большим нуля.

Код: (Delphi)

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

[Алексей++]

Message.lParam большим нуля.

этот параметр всегда больше нуля Он вообще беззнаковый. Делаем просмотр переменных в hex-формате и наслаждаемся таблицей
http://msdn.microsoft.com/en-us/library/ms646280(VS.85).aspx

Насчёт того, что нажатие не приходит - возможно, в окнах-предках сообщение отсеяно. Проследи Spy++

[RXL]

malor, а зачем тебе WndProc? Класс формы поддерживает методы-события OnKeyPress, OnKeyUp и OnKeyDown.

[malor]

Таким добавлением решил вопрос:

Код: (Delphi)

procedure TForm1.CMDialogKey(var AMessage: TCMDialogKey);
var   strLog: AnsiString;
begin
  if AMessage.CharCode = VK_TAB then begin
      strLog := 'wParam: ' + IntToStr(AMessage.CharCode) + ' lParam: '
                   + IntToStr(AMessage.KeyData);
     AMessage.result := 1;
     Exit;
  end;
  inherited;
end;