Назначение и обработка комбинаций клавиш

[BLACK_RAIN]

Здравствуйте.
Первое:
Мне нужно, чтобы мое окно реагировало на некие комбинации клавиш. Например: CTRL+J, ALT+K и т.п. Как это сделать?
Через WM_KEYDOWN обрабатываются одиночные клавиши, но не сочетания.
Второе:
планирую использовать контрол HotKey для смены сочетаний.
По замыслу, таких сочетаний будет много, так что если делать для каждого из них отдельный HotKey, это займет очень много места в окне.
Отсюда вопрос: Как примерно это сделано в плеере Light Alloy?
вот скриншот его окна:

Это похоже на ListView с ручной отрисовкой.
Но как он принимает сочетания клавиш? В него как-то встроена куча HotKey'ев?
Натолкните на умные мысли, как сделать нечто подобное? Готовый код НЕ прошу!

[Пепел Феникса]

Через WM_KEYDOWN обрабатываются одиночные клавиши, но не сочетания.

а если доку почитать?

Отсюда вопрос: Как примерно это сделано в плеере Light Alloy?

там редактироватся в момент времени может лишь одна ячейка, в момент редактирования ставим HotKey контрол и все.

[BLACK_RAIN]

Сообщение от Пепел Феникса

а если доку почитать?

В смысле это?

Сообщение от msdn

24 Indicates whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.

Вы про это? Это вроде показывает, является ли нажатая клавиша "расширенной" или нет. Т.е, одной из ctrl/alt/shift/win. Там больше нет ничего про CTRL/ALT.
Про какую доку вы говорите?

Сообщение от Пепел Феникса

в момент редактирования ставим HotKey контрол и все.

Самую малость поподробнее, пожалуйста. Момент редактирования это обработка WM_KEYDOWN на ListView? В каком смысле "ставим" HotKey?

[waleri]

Зачем заморачиваться с WM_KEYDOWN? Для этого есть TranslateAccelerator()

[BLACK_RAIN]

Сообщение от waleri

Зачем заморачиваться с WM_KEYDOWN? Для этого есть TranslateAccelerator()

ok. Что я делаю не так?

const
VK_M = 77;
VK_L = 76;
id_1 = wm_user+666;
ID_2 = WM_USER+667;

var
  arraccel : array [0..1] of ACCEL;
  myaccel : hACCEL = 0;

begin
  arraccel[0].fVirt := FCONTROL;
  arraccel[0].key := VK_M;
  arraccel[0].cmd := id_1;
  arraccel[1].fVirt := FCONTROL;
  arraccel[1].key := VK_L;
  arraccel[1].cmd := id_2;
  myaccel := createacceleratortable(arraccel,2);
  if myaccel>0 then
  MessageBox(form1,'','',MB_OK);

While GetMessage(Mesg,form1,0,0) do
  begin
     if TranslateAccelerator(form1,myaccel,mesg)=0 then
     begin
       TranslateMessage(Mesg);
       DispatchMessage(Mesg);
     end;
  end;

    WM_COMMAND:
    if (loword(Wpar)=id_1) or (loword(Wpar)=id_2) then
    MessageBox(wnd,PChar('ctrl+m'),PChar(':)'),0);

WM_COMMAND не приходит.

[waleri]

Сообщение от BLACK_RAIN

ok. Что я делаю не так?

Не читаете документацию.
Если сработал TranslateAccelartor, тогда НЕ надо TranslateMessage + DispatchMessage.

[BLACK_RAIN]

Сообщение от waleri

Не читаете документацию.
Если сработал TranslateAccelartor, тогда НЕ надо TranslateMessage + DispatchMessage.

Я еще раз спрашиваю - под "документацией" имеется ввиду MSDN или что-то еще?
Я читаю MSDN про функцию TranslateAccelerator() и там чёрным по белому написано:

Сообщение от msdn

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero.

что в переводе означает: "Если функция успешна, то возвращаемое значение - не ноль. Если функция сфэйлила, то возвращаемое значение - ноль.".
Я делаю, как написано:

    if TranslateAccelerator(form1,myaccel,mesg)=0 then // если фэйл
    begin  // тогда
      TranslateMessage(Mesg);
      DispatchMessage(Mesg);
    end;

Что не так-то?

[Stertor]

BLACK_RAIN, не обижайтесь на этих бармалеев, они и сами ничего толком не знают. В вашем случае надо хук ставить на клавиатуру и ловить эти две клавиши. Хук устанавливают с помощью API SetWindowsHookEx. Поищите исходники в сети.

[BLACK_RAIN]

Сообщение от Stertor

Хук устанавливают с помощью API SetWindowsHookEx.

Хук на клаву я ставить умею, но хотелось бы обойтись без этого. Хук - это уж слишком.

[waleri]

Не знаю - вы изменили код.
В первоначальном варианте были безусловно два Translate и Dispatch()

Почитайте про FVIRTKEY, если не поможет вон нелюбитель бармалеев вам поможет...