Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как зарегистрировать HotKey на фрейме

Автор: Champ10N 9.11.2007, 17:10

Код


private
  procedure WMHotkey( Var msg: TWMHotkey ); message WM_HOTKEY;

constructor TFrame1.Create(AOwner: TComponent);
  RegisterHotKey(Self.Handle, 1, mod_control, VK_F1);
  RegisterHotKey(Self.Handle, 2, mod_control, VK_F2);

procedure TFrame1.WMHotkey( Var msg: TWMHotkey );
begin
  If msg.HotKey = 1 then
    Sex.Text := Sex.Items[0]
      else
        If Msg.HotKey = 2 then
          Sex.Text := Sex.Items[2];
end;

Народ подскажите что не так ... почему не работает ?

Автор: Champ10N 11.11.2007, 18:44

Народ ... неужели никто не знает как это сделать ?

Автор: MetalFan 12.11.2007, 10:24

что возвращает RegisterHotKey?

Цитата

Return Value

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.