VPF::Как зарегистрировать HotKey на фрейме

Champ10N

Дата 9.11.2007, 17:10 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 9.11.2007
Где: Воронеж

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

Код


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;

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

Это сообщение отредактировал(а) Alexeis - 9.11.2007, 20:42

Champ10N

Дата 11.11.2007, 18:44 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 9.11.2007
Где: Воронеж

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

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

MetalFan

Дата 12.11.2007, 10:24 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

что возвращает 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.

--------------------

There are always someone smarter than you...

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