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

[malor]

Почему про нажатие клавиши не приходит сообщения? Т.е. с 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

[p51x]

А вы какое сообщение ловите? На какое обработчик стоит?

[malor]

Ставил разные Condition на праметр Message.lParam:



И при запуске программы жал только Tab на клавиатуре.

[Аватар]

Отловите в Application.OnMessage

[malor]

Отловил так:

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;