VPF::VK_TAB: приходит лишь сообщение об отпускании

malor

Дата 12.8.2011, 09:30 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Это сообщение отредактировал(а) malor - 12.8.2011, 09:33

Присоединённый файл ( Кол-во скачиваний: 3 )

TabProject.zip 84,35 Kb

AndreyIQ

Дата 26.8.2011, 15:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Если еще интересно, надо переопределить CMDialogKey, примерно так:

Код



type
  TForm3 = class(TForm)
  public
    procedure CMDialogKey(var msg: TCMDialogKey); message CM_DIALOGKEY;
  end;
.........................................
procedure TForm3.CMDialogKey(var msg: TCMDialogKey);
begin
  if msg.Charcode <> VK_TAB then
    inherited;
end;

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