Почему на ряду со всеми, не срабатывает hot key "F12"

[KBO]

Доброе всем время суток,
а подскажите, почему, следующий код, для работы "горячих клавиш", работает для всех клавиш, кроме кода "123", это клавиша - "F12"?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
    ID = WM_USER + 1;

type
  Tform_Test = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WM_HotKey(var Message:TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  form_Test: Tform_Test;

implementation

{$R *.dfm}

procedure Tform_Test.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 112, 0, 112); //for "Hot key" = "F1"
  RegisterHotKey(Handle, 113, 0, 113); //for "Hot key" = "F2"
  RegisterHotKey(Handle, 121, 0, 121);
  RegisterHotKey(Handle, 122, 0, 122);
  RegisterHotKey(Handle, 123, 0, 123); //for "Hot key" = "F12"
end;

procedure Tform_Test.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 50);
  UnregisterHotKey(Handle, 112);
  UnregisterHotKey(Handle, 113);
  UnregisterHotKey(Handle, 121);
  UnregisterHotKey(Handle, 122);
  UnregisterHotKey(Handle, 123);
end;

procedure Tform_Test.WM_HotKey(var Message:TMessage);
begin
  case Message.WParam  of
    50: showmessage('key is push "2"');
    112: showmessage('key is push "F1"');
    113: showmessage('key is push "F2"');
    121: showmessage('key is push "F10"');
    122: showmessage('key is push "F11"');
    123: showmessage('key is push "F12"');
  end;
end;

end;

end.

Хотя если для "F12" использовать следующий код:

procedure Tform_Test.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F12 then
    showmessage('key is push "F12"');
end;

все работает, аж бегом

[Stilet]

Проверил у себя - не работает твой код.
ИМХО код F12 не 123...
По другому объяснить не могу.

[Аватар]

123. RegisterHotKey чего возвращает для F12?

[Vapaamies]

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

а подскажите, почему, следующий код, для работы "горячих клавиш", работает для всех клавиш, кроме кода "123", это клавиша - "F12"?

Так и должно быть, этот код не должен работать. Если что-то срабатывает, это наведенный эффект, работающий только на компьютере программиста при каких-то условиях.

Логика RegisterHotKey предполагает, что возвращаемый код сохраняется в переменную, после чего проверяется в обработчике событий. Переписывайте.

[Stilet]

Логика RegisterHotKey предполагает, что возвращаемый код сохраняется в переменную, после чего проверяется в обработчике событий.

Шта шта?? О_о

RegisterHotKey чего возвращает для F12?

Совет дельный. Я проверить не догадался. Только что проверил у себя - пишет "Назначенная клавиша уже кем-то зарегена"

[Vapaamies]

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

Шта шта?? О_о

На ночь глядя с RegisterMessage попутал.

К слову сказать, в MSDN написано:

The F12 key is reserved for use by the debugger at all times, so it should not be registered as a hot key. Even when you are not debugging an application, F12 is reserved in case a kernel-mode debugger or a just-in-time debugger is resident.

[Stilet]

На ночь глядя с RegisterMessage попутал.

Э-э-э...

Сегодня, 07:29

А сколько же у тебя на часах то было? О_о Форум. чего опять время тащит черти откудлова?

в MSDN написано:

А-а-а... Окак!

[Vapaamies]

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

А сколько же у тебя на часах то было? О_о Форум. чего опять время тащит черти откудлова?

Гы-гы, это за за утренним чаем написал, выходит. Тады не проснулся еще, для меня как ночь была.

[KBO]

Я вчера, перед эти вопросом, просматривал этот форум, на предмет кода для "F12", кстати и нашел, тут тоже этот код "123" и по логике вроде подходит ("F10" = 121, "F11" = 122).
Но в действительности оказывается немного не так.
Так какой же код у "F12"?

[Аватар]

123. Но горячую клавишу видимо низзя. Читай #6, если что со словарем. Ну или по ссылке от туда же